1 files changed, 44 insertions, 0 deletions
diff --git a/src/Main.hs b/src/Main.hs
new file mode 100644
index 0000000..1b4996f
--- /dev/null
+++ b/src/Main.hs
@@ -0,0 +1,44 @@
+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 ()