X-Git-Url: https://glassweightruler.freedombox.rocks/gitweb/xdg-ninja.git/blobdiff_plain/423726fc992211893ed74e63a3ccd907b7163280..0ed6693f66fb949929b6d59b1b79dc87be538d61:/src/xdgnj.hs

diff --git a/src/xdgnj.hs b/src/xdgnj.hs
index d2566c3..3c4cea0 100644
--- 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