From b881871420b96553037af6790191ff91b3bcdf82 Mon Sep 17 00:00:00 2001
From: Frederick Yin <fkfd@fkfd.me>
Date: Sat, 7 Jan 2023 20:29:57 +0800
Subject: Rudimentary Game.advanceGame

---
 Main.hs | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'Main.hs')

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