1 2 3 4 5 6 7 8 9 10 11
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 ())