Add preview program command

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

diff --git a/src/xdgnj.hs b/src/xdgnj.hs
index 3c4cea018d27948337645544f8bb0a9b3a6a042a..a379bf4f29b5ce92ff1dc9488cd88f45b0b26854 100644 (file)
--- a/src/xdgnj.hs
+++ b/src/xdgnj.hs
@@ -4,6 +4,7 @@ module Main where
 import qualified AddProgram          as PA
 import           Data.Semigroup      ((<>))
 import qualified EditProgram         as PE
+import qualified PreviewProgram         as PP
 import           Options.Applicative
 
 data Args = AddProgram
@@ -41,4 +42,5 @@ main = do
     case args of
         AddProgram           -> PA.saveProgram
         EditProgram filename -> PE.editProgram filename
+        PreviewProgram filename -> PP.previewProgramFile filename
         _                    -> print args