From 68588db76baaf8f2f17dd9b7f3649b09e102ea85 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Thu, 30 Jul 2020 20:09:47 +0200
Subject: Pass black and white cards to the client

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

(limited to 'server/lib/Cafp/Game.hs')

diff --git a/server/lib/Cafp/Game.hs b/server/lib/Cafp/Game.hs
index a083e57..ad33368 100644
--- a/server/lib/Cafp/Game.hs
+++ b/server/lib/Cafp/Game.hs
@@ -26,8 +26,8 @@ import qualified Data.Text           as T
 type PlayerId = Int
 
 data Cards = Cards
-    { _cardsBlack :: [T.Text]
-    , _cardsWhite :: [T.Text]
+    { _cardsBlack :: [BlackCard]
+    , _cardsWhite :: [WhiteCard]
     } deriving (Show)
 
 data Game = Game
@@ -50,7 +50,6 @@ joinGame game =
     , game & gameNextPlayerId %~ succ & gamePlayers %~ HMS.insert pid name
     )
 
-
 leaveGame :: PlayerId -> Game -> Game
 leaveGame pid = over gamePlayers $ HMS.delete pid
 
@@ -67,4 +66,5 @@ gameViewForPlayer self game =
         { gameViewOpponents = opponents
         , gameViewMyName    = name
         , gameViewBlackCard = game ^? gameCards . cardsBlack . ix 0
+        , gameViewHand      = take 10 $ game ^. gameCards . cardsWhite
         }
-- 
cgit v1.2.3