Add preview program command

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

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