From fd04d589936135f67c3362e664c896f6bf76e075 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Fri, 31 Jul 2020 21:05:38 +0200
Subject: Bump

---
 server/lib/Cafp/Game.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'server')

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
-- 
cgit v1.2.3