28 lines
683 B
Haskell
28 lines
683 B
Haskell
module Main where
|
|
|
|
import UI.Butcher.Monadic
|
|
|
|
|
|
|
|
main :: IO ()
|
|
main = mainFromCmdParser $ do
|
|
addCmd "inner" $ do
|
|
my <- addSimpleBoolFlag "" ["my"] mempty
|
|
addCmdImpl $ do
|
|
putStrLn $ "my = " ++ show my
|
|
putStrLn "inner"
|
|
addCmd "other" $ do
|
|
addCmdImpl $ putStrLn "other"
|
|
reorderStart
|
|
foo <- addSimpleBoolFlag "" ["foo"] mempty
|
|
bar <- addSimpleBoolFlag "" ["bar"] mempty
|
|
x :: Int <- addFlagReadParam "x" [] "X" mempty
|
|
b <- addSimpleBoolFlag "b" [] mempty
|
|
reorderStop
|
|
addCmdImpl $ do
|
|
putStrLn $ "foo = " ++ show foo
|
|
putStrLn $ "bar = " ++ show bar
|
|
putStrLn $ "x = " ++ show x
|
|
putStrLn $ "b = " ++ show b
|
|
|