Handle Jack and Queen

1 files changed, 2 insertions, 3 deletions

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 ()