diff options
author | Jasper Van der Jeugt | 2020-07-31 21:05:38 +0200 |
---|---|---|
committer | Jasper Van der Jeugt | 2020-07-31 21:05:38 +0200 |
commit | fd04d589936135f67c3362e664c896f6bf76e075 (patch) | |
tree | f0eebe186de13cabd73094d3ef805069f00c1d01 /server/lib/Cafp | |
parent | 5a1586d0a5745da547254558e8f1de8e2a94c469 (diff) |
Bump
Diffstat (limited to 'server/lib/Cafp')
-rw-r--r-- | server/lib/Cafp/Game.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/server/lib/Cafp/Game.hs b/server/lib/Cafp/Game.hs index e170370..ead1445 100644 --- a/server/lib/Cafp/Game.hs +++ b/server/lib/Cafp/Game.hs @@ -57,14 +57,14 @@ makeLenses ''Game newGame :: Cards -> IO Game newGame cards = do - black <- newDeck BlackCard $ cardsBlack cards + black <- fmap InfiniteDeck.pop . newDeck BlackCard $ cardsBlack cards white <- newDeck WhiteCard $ cardsWhite cards pure Game { _gameCards = cards - , _gameBlack = black + , _gameBlack = snd black , _gameWhite = white , _gamePlayers = HMS.empty - , _gameTable = TableProposing (BlackCard 0) HMS.empty + , _gameTable = TableProposing (fst black) HMS.empty , _gameNextPlayerId = 1 } where |