diff options
author | Frederick Yin <fkfd@fkfd.me> | 2023-03-13 18:23:48 +0800 |
---|---|---|
committer | Frederick Yin <fkfd@fkfd.me> | 2023-03-13 18:23:48 +0800 |
commit | 8c6245fac35cdc9a1ef743d29eea9176448d350d (patch) | |
tree | 43755f230b1cfe0caee7d29156851479eb23f2b0 /Main.hs | |
parent | 84ee16536eabd4f637912d25643184cbcc118092 (diff) |
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/Main.hs b/Main.hs deleted file mode 100644 index 1b4996f..0000000 --- a/Main.hs +++ /dev/null @@ -1,44 +0,0 @@ -import Options.Applicative -import Game (Game(..), Setup(..), beginGame) - -setup :: Parser Setup -setup = Setup - <$> option auto - ( short 'n' - <> long "player-number" - <> metavar "n" - <> value 4 - <> help "n players, n must be larger than 2 (default: 4)" - ) - <*> option auto - ( short 'r' - <> long "rounds" - <> metavar "r" - <> value 1 - <> help "play r rounds, r must be at least 1 (default: 1)" - ) - <*> option auto - ( short 'd' - <> long "decks" - <> metavar "d" - <> value 2 - <> help "use d decks 52 cards each, d must be at least 2 (default: 2)" - ) - <*> option auto - ( short 'c' - <> long "initial-cards" - <> metavar "c" - <> value 5 - <> help "deal c cards per player, c must be at least 2 (default: 5)" - ) - <*> switch - ( short 'a' - <> long "auto" - <> help "run in demo mode" - ) - -main :: IO () -main = do - let opts = info (setup <**> helper) (fullDesc <> progDesc "One Card") - beginGame =<< execParser opts - return () |