From c50c43698af9b4291f1e63154d19123ed89b8f10 Mon Sep 17 00:00:00 2001
From: Frederick Yin <fkfd@fkfd.me>
Date: Sun, 8 Jan 2023 20:11:30 +0800
Subject: beginRounds and beginTurn are better names

---
 Game.hs | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'Game.hs')

diff --git a/Game.hs b/Game.hs
index 7c5c8ba..816a65c 100644
--- a/Game.hs
+++ b/Game.hs
@@ -17,17 +17,17 @@ data Game = Game { players :: [Player]
                  }
 
 -- | Begin new round of game.
-nextRound :: Int -> Game -> IO Game
-nextRound n game = do
+beginRounds :: Int -> Game -> IO Game
+beginRounds n game = do
     if n == 0
        then return game
        else do
-           game' <- nextTurn game
-           nextRound (n - 1) game'
+           game' <- beginTurn game
+           beginRounds (n - 1) game'
 
 -- | Let current player take their turn.
-nextTurn :: Game -> IO Game
-nextTurn game@(Game plyrs pidx att dir stock disc) = do
+beginTurn :: Game -> IO Game
+beginTurn game@(Game plyrs pidx att dir stock disc) = do
     putStrLn $ replicate 80 '-'
     putStrLn $ "Current attack: " ++ show att
     decision <- prompt game
@@ -66,7 +66,7 @@ nextTurn game@(Game plyrs pidx att dir stock disc) = do
 
     if null $ P.cards player'
        then return game'
-       else nextTurn game'
+       else beginTurn game'
 
 -- | Prompt player to play a card (or draw card and skip turn).
 prompt :: Game -> IO (Maybe Card)
-- 
cgit v1.2.3