From ba61f2b7363116f6530fc6c256b1ad97ef0e0861 Mon Sep 17 00:00:00 2001
From: Frederick Yin <fkfd@fkfd.me>
Date: Thu, 5 Jan 2023 22:10:15 +0800
Subject: Game.dealCards

---
 Main.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 48726b7..c18b780 100644
--- a/Main.hs
+++ b/Main.hs
@@ -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
-- 
cgit v1.2.3