diff options
Diffstat (limited to 'server/lib/Cafp/Game.hs')
| -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 |