Support passing arguments

chrisdone · Aug 23, 2024 · e3b789f · e3b789f
1 parent 7eabe72
commit e3b789f
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/Hell.hs b/Hell.hs
@@ -86,7 +86,12 @@ data Command
   | Version
 
 main :: IO ()
-main = dispatch =<< Options.execParser opts
+main = do
+  args <- getArgs
+  case args of
+    (x:ys)
+      | not (List.isPrefixOf "-" x) -> withArgs ys $ dispatch (Run x)
+    _ -> dispatch =<< Options.execParser opts
   where
     opts = Options.info (commandParser Options.<**> Options.helper)
       ( Options.fullDesc

diff --git a/examples/23-args.hell b/examples/23-args.hell
@@ -0,0 +1,3 @@
+main = do
+  args <- Environment.getArgs
+  Monad.forM_ args IO.print