diff options
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -9,6 +9,7 @@ import Game (Game(..), stockPile, discardPile, prompt, + dealCards, ) import Player (Player(..)) import qualified Player as P @@ -20,9 +21,9 @@ main = do gen <- getStdGen let stock = shuffle gen $ fullDecks 2 let discard = [] - let defaultPlayers = [ Player "Alice" 0 $ take 6 $ fullDecks 1 - , Player "Bob" 0 $ take 6 $ fullDecks 1 - , Player "Carol" 0 $ take 6 $ fullDecks 1 + let defaultPlayers = [ Player "Alice" 0 [] + , Player "Bob" 0 [] + , Player "Carol" 0 [] ] let game = Game { players = defaultPlayers , playerIdx = 0 @@ -31,5 +32,5 @@ main = do , stockPile = stock , discardPile = discard } - card <- prompt game + card <- prompt $ dealCards 6 game print card |