From 88e5fd7b4701fcfc9dd355208435a37bf129a92f Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Fri, 31 Jul 2020 13:06:38 +0200
Subject: Send proposals to server

---
 server/lib/Cafp/Messages.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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

diff --git a/server/lib/Cafp/Messages.hs b/server/lib/Cafp/Messages.hs
index de0ae26..ff3f612 100644
--- a/server/lib/Cafp/Messages.hs
+++ b/server/lib/Cafp/Messages.hs
@@ -9,7 +9,8 @@ module Cafp.Messages
     , ClientMessage (..)
     ) where
 
-import           Data.Text  (Text)
+import           Data.Text   (Text)
+import           Data.Vector (Vector)
 import           Elm.Derive
 
 data BlackCard = BlackCard Int deriving (Show)
@@ -17,8 +18,8 @@ data BlackCard = BlackCard Int deriving (Show)
 data WhiteCard = WhiteCard Int deriving (Show)
 
 data Cards = Cards
-    { cardsBlack :: [Text]
-    , cardsWhite :: [Text]
+    { cardsBlack        :: Vector Text
+    , cardsWhite        :: Vector Text
     } deriving (Show)
 
 data TableView
@@ -41,6 +42,7 @@ data ServerMessage
 
 data ClientMessage
     = ChangeMyName Text
+    | ProposeWhiteCards WhiteCard  -- TODO: Needs to be a list?
     deriving (Show)
 
 deriveBoth defaultOptions ''BlackCard
-- 
cgit v1.2.3