Restructure haskell code

[xdg-ninja.git] / 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 a1446a3eb3ac4bb73576aca6c690669d88a0766f..77272eedeb1daf27047e765e883128ca45caf3ba 100644 (file)
--- 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