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 ()