From e3a2052522471d39e410f4ea13d51d3d18f52b80 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Fri, 31 Jul 2020 17:13:37 +0200
Subject: Multiple \BLANK in black cards

---
 server/lib/Cafp/Messages.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/server/lib/Cafp/Messages.hs b/server/lib/Cafp/Messages.hs
index dc17168..1b37380 100644
--- a/server/lib/Cafp/Messages.hs
+++ b/server/lib/Cafp/Messages.hs
@@ -29,7 +29,7 @@ data Opponent = Opponent
     } deriving (Show)
 
 data TableView
-    = Proposing BlackCard (Maybe WhiteCard)
+    = Proposing BlackCard [WhiteCard]
     deriving (Show)
 
 data GameView = GameView
@@ -48,7 +48,7 @@ data ServerMessage
 
 data ClientMessage
     = ChangeMyName Text
-    | ProposeWhiteCards WhiteCard  -- TODO: Needs to be a list?
+    | ProposeWhiteCards [WhiteCard]
     deriving (Show)
 
 deriveBoth defaultOptions ''BlackCard
-- 
cgit v1.2.3