Added edit program command

[xdg-ninja.git] / src / xdgnj.hs

diff --git a/src/xdgnj.hs b/src/xdgnj.hs
index d2566c3f8170ab528a6117d966633457386a461c..3c4cea018d27948337645544f8bb0a9b3a6a042a 100644 (file)
--- a/src/xdgnj.hs
+++ b/src/xdgnj.hs
@@ -1,7 +1,9 @@
 module Main where
 
-import           AddProgram
+
+import qualified AddProgram          as PA
 import           Data.Semigroup      ((<>))
+import qualified EditProgram         as PE
 import           Options.Applicative
 
 data Args = AddProgram
@@ -37,5 +39,6 @@ main :: IO ()
 main = do
     args <- execParser args
     case args of
-        AddProgram -> saveProgram
-        _          -> print args
+        AddProgram           -> PA.saveProgram
+        EditProgram filename -> PE.editProgram filename
+        _                    -> print args