diff options
-rw-r--r-- | Game.hs | 6 | ||||
-rw-r--r-- | Main.hs | 4 |
2 files changed, 5 insertions, 5 deletions
@@ -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) @@ -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 () |