hanzo/examples/WithArgs.hs

module Main where

import qualified Hanzo

main :: IO ()
main = Hanzo.main $ \ args -> do
  case args of
    [] -> pure (Left "No arguments provided!")
    xs -> do
      putStrLn ("Hello, " ++ unwords xs ++ "!")
      pure (Right ())