add the full list of programs from issue #80. (#82)

[xdg-ninja.git] / lib / AddProgram.hs

diff --git a/lib/AddProgram.hs b/lib/AddProgram.hs
index 5a145ad7027fd098fdff14df46a98ad7d06a1cd2..13f7304c30441d4bdc0e1c1159a009a0d650e0dc 100644 (file)
--- 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 ()