X-Git-Url: https://glassweightruler.freedombox.rocks/gitweb/xdg-ninja.git/blobdiff_plain/423726fc992211893ed74e63a3ccd907b7163280..46d1d01162fd2233bb9971da996eda4463f46a8b:/lib/AddProgram.hs

diff --git a/lib/AddProgram.hs b/lib/AddProgram.hs
index 5a145ad..13f7304 100644
--- a/lib/AddProgram.hs
+++ b/lib/AddProgram.hs
@@ -88,5 +88,5 @@ saveProgram = do
   program <- getProgram
   do_save <- promptBool (green "Save? (y/n) ") (red "Please provide a valid answer.") ""
   if do_save
-  then save program
+  then save (makeFilename (name program)) program
   else return ()