diff options
| author | Ben Sima <ben@bsima.me> | 2022-08-02 11:40:45 -0400 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2022-08-02 11:40:45 -0400 |
| commit | 25c1d6a43fbfbf8896f5528e4015dadb57c02177 (patch) | |
| tree | 3d2790746dae2e749a3a2d8f6dacaf63c8368eb3 /Biz/Bild | |
| parent | a6c19b764ec05c9e3bbccd2135f6e553a9defcff (diff) | |
Fix test argument to deps
Diffstat (limited to 'Biz/Bild')
| -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 |