Main.hs


1
2
3
4
5
6
7
8
9
10
11
12

import Game (Game(..), Setup(..), beginGame)

main :: IO ()
main = do
    let setup = Setup { playerN  = 3
                      , roundN   = 3
                      , deckN    = 2
                      , cardN    = 6
                      , autoMode = True
                      }
    beginGame setup
    return ()