From 25c1d6a43fbfbf8896f5528e4015dadb57c02177 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Tue, 2 Aug 2022 11:40:45 -0400 Subject: Fix test argument to deps --- Biz/Bild/Deps.hs | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'Biz/Bild') 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 -- cgit v1.2.3