]> glassweightruler.freedombox.rocks Git - xdg-ninja.git/blobdiff - src/xdgnj.hs
Add more programs
[xdg-ninja.git] / src / xdgnj.hs
index 306c22ba8747e294f34f31fba75b99fa54f3c17a..f3adf7c81a0b7f52b0360ad1cb0a2e85739cf07a 100644 (file)
@@ -2,11 +2,11 @@ module Main where
 
 
 import qualified AddProgram          as PA
-import qualified Checks          as C
+import qualified Checks              as C
 import           Data.Semigroup      ((<>))
 import qualified EditProgram         as PE
-import qualified PreviewProgram         as PP
 import           Options.Applicative
+import qualified PreviewProgram      as PP
 
 data Args = RunChecks
     | AddProgram
@@ -43,8 +43,8 @@ main :: IO ()
 main = do
     args <- execParser args
     case args of
-        RunChecks           -> C.checkDir "./programs"
-        AddProgram           -> PA.saveProgram
-        EditProgram filename -> PE.editProgram filename
+        RunChecks               -> C.checkDir "./programs"
+        AddProgram              -> PA.saveProgram
+        EditProgram filename    -> PE.editProgram filename
         PreviewProgram filename -> PP.previewProgramFile filename
-        _                    -> print args
+        _                       -> print args