From af9ba36883d902d2415811377e4a67fab4d11226 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Sun, 2 Aug 2020 17:39:26 +0200
Subject: Start voting phase

---
 server/lib/Cafp/Messages.hs | 24 ++++++++++++++++++------
 1 file changed, 18 insertions(+), 6 deletions(-)

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

diff --git a/server/lib/Cafp/Messages.hs b/server/lib/Cafp/Messages.hs
index aae49cc..ea6361c 100644
--- a/server/lib/Cafp/Messages.hs
+++ b/server/lib/Cafp/Messages.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE DeriveGeneric   #-}
 {-# LANGUAGE TemplateHaskell #-}
 module Cafp.Messages
     ( BlackCard (..)
@@ -10,17 +11,23 @@ module Cafp.Messages
     , ClientMessage (..)
     ) where
 
-import           Data.Text   (Text)
-import           Data.Vector (Vector)
+import           Data.Hashable (Hashable)
+import           Data.Text     (Text)
+import           Data.Vector   (Vector)
 import           Elm.Derive
+import           GHC.Generics  (Generic)
 
-data BlackCard = BlackCard Int deriving (Eq, Show)
+data BlackCard = BlackCard Int deriving (Eq, Generic, Show)
 
-data WhiteCard = WhiteCard Int deriving (Eq, Show)
+instance Hashable BlackCard
+
+data WhiteCard = WhiteCard Int deriving (Eq, Generic, Show)
+
+instance Hashable WhiteCard
 
 data Cards = Cards
-    { cardsBlack        :: Vector Text
-    , cardsWhite        :: Vector Text
+    { cardsBlack :: Vector Text
+    , cardsWhite :: Vector Text
     } deriving (Show)
 
 data Opponent = Opponent
@@ -30,6 +37,11 @@ data Opponent = Opponent
 
 data TableView
     = Proposing BlackCard [WhiteCard]
+    | Voting
+        BlackCard
+        [WhiteCard]    -- ^ My proposal
+        [[WhiteCard]]  -- ^ Proposals to vote for
+        (Maybe Int)    -- ^ My vote
     deriving (Show)
 
 data GameView = GameView
-- 
cgit v1.2.3