diff options
Diffstat (limited to '')
-rw-r--r-- | server/lib/Cafp/Messages.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/server/lib/Cafp/Messages.hs b/server/lib/Cafp/Messages.hs index 871037e..d92ce80 100644 --- a/server/lib/Cafp/Messages.hs +++ b/server/lib/Cafp/Messages.hs @@ -2,13 +2,15 @@ module Cafp.Messages ( GameView (..) , ServerMessage (..) + , ClientMessage (..) ) where import Data.Text (Text) import Elm.Derive data GameView = GameView - { gameViewPlayers :: [Text] + { gameViewOpponents :: [Text] + , gameViewPlayerName :: Text } deriving (Show) data ServerMessage @@ -17,5 +19,10 @@ data ServerMessage | Bye deriving (Show) +data ClientMessage + = ChangeName Text + deriving (Show) + deriveBoth (defaultOptionsDropLower 8) ''GameView deriveBoth defaultOptions ''ServerMessage +deriveBoth defaultOptions ''ClientMessage |