diff options
Diffstat (limited to 'server/lib/Cafp/Messages.hs')
| -rw-r--r-- | server/lib/Cafp/Messages.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |