diff options
-rw-r--r-- | Game.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -55,7 +55,7 @@ drawAndSkip game@(Game plyrs pidx att dir prev stock disc) = do let pidx' = (pidx + dir) `mod` length plyrs let stock' = drop att stock putStrLn $ (P.name player) ++ " draws " ++ (C.showCards $ take att stock) - return $ Game plyrs' pidx' 1 dir prev stock' disc + return $ Game plyrs' pidx' att dir prev stock' disc -- | Game state after player sheds card. shedAndContinue :: Card -> Game -> IO Game |