From c92c0f65c733c9aba5c56313a4bc313a299e1230 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Thu, 30 Jul 2020 22:07:37 +0200
Subject: Some logic

---
 server/lib/Cafp/Messages.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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

diff --git a/server/lib/Cafp/Messages.hs b/server/lib/Cafp/Messages.hs
index 219efb4..de0ae26 100644
--- a/server/lib/Cafp/Messages.hs
+++ b/server/lib/Cafp/Messages.hs
@@ -3,6 +3,7 @@ module Cafp.Messages
     ( BlackCard (..)
     , WhiteCard (..)
     , Cards (..)
+    , TableView (..)
     , GameView (..)
     , ServerMessage (..)
     , ClientMessage (..)
@@ -20,10 +21,14 @@ data Cards = Cards
     , cardsWhite :: [Text]
     } deriving (Show)
 
+data TableView
+    = Proposing BlackCard (Maybe WhiteCard)
+    deriving (Show)
+
 data GameView = GameView
     { gameViewOpponents :: [Text]
     , gameViewMyName    :: Text
-    , gameViewBlackCard :: Maybe BlackCard
+    , gameViewTable     :: TableView
     , gameViewHand      :: [WhiteCard]
     } deriving (Show)
 
@@ -41,6 +46,7 @@ data ClientMessage
 deriveBoth defaultOptions ''BlackCard
 deriveBoth defaultOptions ''WhiteCard
 deriveBoth (defaultOptionsDropLower 5) ''Cards
+deriveBoth defaultOptions ''TableView
 deriveBoth (defaultOptionsDropLower 8) ''GameView
 deriveBoth defaultOptions ''ServerMessage
 deriveBoth defaultOptions ''ClientMessage
-- 
cgit v1.2.3