diff options
| -rw-r--r-- | Biz/Bild/Deps.hs | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/Biz/Bild/Deps.hs b/Biz/Bild/Deps.hs index 582899c..89c4516 100644 --- a/Biz/Bild/Deps.hs +++ b/Biz/Bild/Deps.hs @@ -54,12 +54,15 @@ li :: MonadIO io => IO a -> io a li = liftIO main :: IO () -main = cli +main = + getArgs +> \case + ["test"] -> pure () + args -> cli args -cli :: IO () -cli = do +cli :: [String] -> IO () +cli args = do ((fsj, colors), nio) <- - getArgs +> Opts.handleParseResult <. execParserPure' Opts.defaultPrefs opts + pure args +> Opts.handleParseResult <. execParserPure' Opts.defaultPrefs opts setColors colors runReaderT (runNIO nio) fsj where |