diff options
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -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 () |