drawAndSkip carries attack

1 files changed, 1 insertions, 1 deletions

diff --git a/Game.hs b/Game.hs
index e6d8270..b9ad8bd 100644
--- a/Game.hs
+++ b/Game.hs
@@ -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