diff options
| author | Jasper Van der Jeugt | 2020-08-02 18:33:04 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt | 2020-08-02 18:33:04 +0200 |
| commit | fd2ef8609852058ddb7dc7450fb16da0e95cd40a (patch) | |
| tree | d7f6f62883beee79637cc4727bf2b8a2709f7e9d /server/lib/Cafp/Messages.hs | |
| parent | af9ba36883d902d2415811377e4a67fab4d11226 (diff) | |
Submit votes
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 |