From fd2ef8609852058ddb7dc7450fb16da0e95cd40a Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Sun, 2 Aug 2020 18:33:04 +0200
Subject: Submit votes

---
 server/lib/Cafp/Messages.hs | 3 ++-
 1 file changed, 2 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 ea6361c..df447c3 100644
--- a/server/lib/Cafp/Messages.hs
+++ b/server/lib/Cafp/Messages.hs
@@ -39,8 +39,8 @@ data TableView
     = Proposing BlackCard [WhiteCard]
     | Voting
         BlackCard
-        [WhiteCard]    -- ^ My proposal
         [[WhiteCard]]  -- ^ Proposals to vote for
+        Int            -- ^ My proposal
         (Maybe Int)    -- ^ My vote
     deriving (Show)
 
@@ -61,6 +61,7 @@ data ServerMessage
 data ClientMessage
     = ChangeMyName Text
     | ProposeWhiteCards [WhiteCard]
+    | SubmitVote Int
     deriving (Show)
 
 deriveBoth defaultOptions ''BlackCard
-- 
cgit v1.2.3