From 552b8a0a8ed89fdc85459037f19ae0a13bfe6702 Mon Sep 17 00:00:00 2001
From: Frederick Yin <fkfd@fkfd.me>
Date: Sun, 8 Jan 2023 21:54:49 +0800
Subject: drawAndSkip carries attack

---
 Game.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Game.hs')

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
-- 
cgit v1.2.3