From ec0654bf0ca057affb37a20ed0588a907e71130f Mon Sep 17 00:00:00 2001
From: Frederick Yin <fkfd@fkfd.me>
Date: Sun, 8 Jan 2023 17:28:11 +0800
Subject: Game ends when player sheds all cards

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

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 685c43b..fd10cdf 100644
--- a/Main.hs
+++ b/Main.hs
@@ -10,7 +10,7 @@ import Game (Game(..),
              discardPile,
              prompt,
              dealCards,
-             nextTurn,
+             nextRound,
             )
 import Player (Player(..))
 import qualified Player as P
@@ -34,5 +34,5 @@ main = do
                     , discardPile = discard
                     }
 
-    nextTurn $ dealCards 6 game
+    nextRound 1 $ dealCards 1 game
     print ()
-- 
cgit v1.2.3