diff options
author | Frederick Yin <fkfd@fkfd.me> | 2023-01-07 20:29:57 +0800 |
---|---|---|
committer | Frederick Yin <fkfd@fkfd.me> | 2023-01-07 20:29:57 +0800 |
commit | b881871420b96553037af6790191ff91b3bcdf82 (patch) | |
tree | ef27a9f48ad43a26722db18fed1794d04b4b2df4 /Main.hs | |
parent | 81ea0f259a49d1a66374afe747334d96eee34b6a (diff) |
Rudimentary Game.advanceGame
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 () |