From 63c6921b102b5b97bc3d030b22fc941c64c0acd2 Mon Sep 17 00:00:00 2001
From: Frederick Yin <fkfd@fkfd.me>
Date: Sun, 8 Jan 2023 21:48:10 +0800
Subject: Validate attempted shed against prev card

---
 Main.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 7e66efa..aaae87c 100644
--- a/Main.hs
+++ b/Main.hs
@@ -29,7 +29,8 @@ main = do
                     , playerIdx   = 0
                     , attack      = 1
                     , direction   = 1
-                    , stockPile   = stock
+                    , prevCard    = head stock
+                    , stockPile   = tail stock
                     , discardPile = discard
                     }
 
-- 
cgit v1.2.3