From 25c1d6a43fbfbf8896f5528e4015dadb57c02177 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
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')

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