X-Git-Url: https://glassweightruler.freedombox.rocks/gitweb/xdg-ninja.git/blobdiff_plain/526c057768aa6e142892dc88af0318aecfabd59a:/app/add-program.hs..3dddb2529a657af8401a3c9152b4b4e131a028cd:/lib/AddProgram.hs

diff --git a/app/add-program.hs b/lib/AddProgram.hs
similarity index 98%
rename from app/add-program.hs
rename to lib/AddProgram.hs
index a1446a3..77272ee 100644
--- a/app/add-program.hs
+++ b/lib/AddProgram.hs
@@ -3,6 +3,8 @@
 
 -- I do not know haskell, this code is probably shit
 
+module AddProgram where
+
 import           Data.Aeson
 import           Data.Aeson.Encode.Pretty
 import           Data.Aeson.Types
@@ -147,8 +149,8 @@ getProgram = do
            >> getFiles []
   return Program {name = T.pack name, files = files}
 
-main :: IO ()
-main = do
+saveProgram :: IO ()
+saveProgram = do
   program <- getProgram
   do_save <- promptBool (green "Save? (y/n) ") (red "Please provide a valid answer.") ""
   if do_save