add support for ghidra (#167)

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

diff --git a/lib/AddProgram.hs b/lib/AddProgram.hs
index 5a145ad7027fd098fdff14df46a98ad7d06a1cd2..dbfb0be99df51a51450286cf30c2bbe832576426 100644 (file)
--- a/lib/AddProgram.hs
+++ b/lib/AddProgram.hs
@@ -78,7 +78,7 @@ getProgram = do
           >> getProp (yellow "Program name: ") ""
   files <- printf "%s\n" (T.unpack (faint (italic (cyan "Alright, now let's configure which files belong to this program."))))
            >> printf "%s\n" (T.unpack (faint (italic (cyan "I'm going to ask you for the path to the file, please use $HOME instead of ~."))))
-           >> printf "%s\n" (T.unpack (faint (italic (cyan "I'll then ask you wether or not this file can be moved to a different directory."))))
+           >> printf "%s\n" (T.unpack (faint (italic (cyan "I'll then ask you whether or not this file can be moved to a different directory."))))
            >> printf "%s\n" (T.unpack (faint (italic (cyan "Finally, your editor is going to open a markdown document. Enter instructions on moving the file in question, then save and close."))))
            >> getFiles []
   return Program {name = T.pack name, files = files}
@@ -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 ()