diff options
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -10,6 +10,7 @@ import Game (Game(..), discardPile, prompt, dealCards, + advanceGame, ) import Player (Player(..)) import qualified Player as P @@ -18,8 +19,8 @@ import qualified Card as C main :: IO () main = do - gen <- getStdGen - let stock = shuffle gen $ fullDecks 2 + shuffleGen <- getStdGen + let stock = shuffle shuffleGen $ fullDecks 2 let discard = [] let defaultPlayers = [ Player "Alice" 0 [] , Player "Bob" 0 [] @@ -32,5 +33,6 @@ main = do , stockPile = stock , discardPile = discard } - card <- prompt $ dealCards 6 game - print card + + advanceGame $ dealCards 6 game + print () |