Game ends when player sheds all cards

1 files changed, 2 insertions, 2 deletions

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 ()