diff options
| author | Jasper Van der Jeugt | 2020-07-30 22:07:37 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt | 2020-07-30 22:07:37 +0200 |
| commit | c92c0f65c733c9aba5c56313a4bc313a299e1230 (patch) | |
| tree | c5bb44d969ac2b91e664e1235b00278cdece11d7 /server/lib/Cafp/Messages.hs | |
| parent | ab1267a757bcc997f05cc9babe2d1fb9bb681ce4 (diff) | |
Some logic
Diffstat (limited to '')
| -rw-r--r-- | server/lib/Cafp/Messages.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/server/lib/Cafp/Messages.hs b/server/lib/Cafp/Messages.hs index 219efb4..de0ae26 100644 --- a/server/lib/Cafp/Messages.hs +++ b/server/lib/Cafp/Messages.hs @@ -3,6 +3,7 @@ module Cafp.Messages ( BlackCard (..) , WhiteCard (..) , Cards (..) + , TableView (..) , GameView (..) , ServerMessage (..) , ClientMessage (..) @@ -20,10 +21,14 @@ data Cards = Cards , cardsWhite :: [Text] } deriving (Show) +data TableView + = Proposing BlackCard (Maybe WhiteCard) + deriving (Show) + data GameView = GameView { gameViewOpponents :: [Text] , gameViewMyName :: Text - , gameViewBlackCard :: Maybe BlackCard + , gameViewTable :: TableView , gameViewHand :: [WhiteCard] } deriving (Show) @@ -41,6 +46,7 @@ data ClientMessage deriveBoth defaultOptions ''BlackCard deriveBoth defaultOptions ''WhiteCard deriveBoth (defaultOptionsDropLower 5) ''Cards +deriveBoth defaultOptions ''TableView deriveBoth (defaultOptionsDropLower 8) ''GameView deriveBoth defaultOptions ''ServerMessage deriveBoth defaultOptions ''ClientMessage |