Rename advanceGame -> nextTurn

2 files changed, 5 insertions, 5 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)
diff --git a/Main.hs b/Main.hs
index ab0d00e..685c43b 100644
--- a/Main.hs
+++ b/Main.hs
@@ -10,7 +10,7 @@ import Game (Game(..),
              discardPile,
              prompt,
              dealCards,
-             advanceGame,
+             nextTurn,
             )
 import Player (Player(..))
 import qualified Player as P
@@ -34,5 +34,5 @@ main = do
                     , discardPile = discard
                     }
 
-    advanceGame $ dealCards 6 game
+    nextTurn $ dealCards 6 game
     print ()