From 988f9eaf9b1c3e0d56f23bf4b698601adc2e3b9f Mon Sep 17 00:00:00 2001
From: Frederick Yin <fkfd@fkfd.me>
Date: Sun, 8 Jan 2023 19:52:41 +0800
Subject: Handle Jack and Queen

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

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index fd10cdf..9cf55fe 100644
--- a/Main.hs
+++ b/Main.hs
@@ -1,7 +1,6 @@
 import System.Random (getStdGen)
 import Card (fullDecks, showCard, shuffle)
 import Game (Game(..),
-             Direction(CCW, CW),
              players,
              playerIdx,
              attack,
@@ -29,10 +28,10 @@ main = do
     let game = Game { players     = defaultPlayers
                     , playerIdx   = 0
                     , attack      = 0
-                    , direction   = CCW
+                    , direction   = 1
                     , stockPile   = stock
                     , discardPile = discard
                     }
 
-    nextRound 1 $ dealCards 1 game
+    nextRound 1 $ dealCards 6 game
     print ()
-- 
cgit v1.2.3