X-Git-Url: https://glassweightruler.freedombox.rocks/gitweb/xdg-ninja.git/blobdiff_plain/932a10db39f29909cb93b9afce14928dcc5e8326..de677c0389e6fc545877e8eae4e47f0106be355f:/src/xdgnj.hs diff --git a/src/xdgnj.hs b/src/xdgnj.hs index 306c22b..f3adf7c 100644 --- a/src/xdgnj.hs +++ b/src/xdgnj.hs @@ -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