1 files changed, 3 insertions, 3 deletions
diff --git a/Game.hs b/Game.hs
index d7773df..ad3d8bc 100644
--- a/Game.hs
+++ b/Game.hs
@@ -18,8 +18,8 @@ data Game = Game { players :: [Player]
                  }
 
 -- | Let current player take their turn.
-advanceGame :: Game -> IO Game
-advanceGame game@(Game plyrs pidx att dir stock disc) = do
+nextTurn :: Game -> IO Game
+nextTurn game@(Game plyrs pidx att dir stock disc) = do
     decision <- prompt game
     let player = plyrs !! pidx
     let player' = case decision of
@@ -39,7 +39,7 @@ advanceGame game@(Game plyrs pidx att dir stock disc) = do
           putStrLn $ (P.name player) ++ " draws " ++ (C.showCard $ head stock)
       Just card -> do
           putStrLn $ (P.name player) ++ " plays " ++ (C.showCard card)
-    advanceGame (Game plyrs' pidx' att dir stock' disc')
+    nextTurn (Game plyrs' pidx' att dir stock' disc')
 
 -- | Prompt player to play a card (or draw card and skip turn).
 prompt :: Game -> IO (Maybe Card)