diff options
author | Frederick Yin <fkfd@fkfd.me> | 2023-01-08 21:54:49 +0800 |
---|---|---|
committer | Frederick Yin <fkfd@fkfd.me> | 2023-01-08 21:54:49 +0800 |
commit | 552b8a0a8ed89fdc85459037f19ae0a13bfe6702 (patch) | |
tree | 870fc36c6c1430e227eabd754e1e4e4956fbf5a2 /Game.hs | |
parent | 347cee5089d0d0d3300fa4cfc1ec1181e179ee2b (diff) |
drawAndSkip carries attack
Diffstat (limited to 'Game.hs')
-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 |