diff options
Diffstat (limited to 'server/lib/Cafp/Messages.hs')
-rw-r--r-- | server/lib/Cafp/Messages.hs | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/server/lib/Cafp/Messages.hs b/server/lib/Cafp/Messages.hs index 682e80b..871037e 100644 --- a/server/lib/Cafp/Messages.hs +++ b/server/lib/Cafp/Messages.hs @@ -1,13 +1,21 @@ {-# LANGUAGE TemplateHaskell #-} module Cafp.Messages - ( ServerMessage (..) + ( GameView (..) + , ServerMessage (..) ) where +import Data.Text (Text) import Elm.Derive +data GameView = GameView + { gameViewPlayers :: [Text] + } deriving (Show) + data ServerMessage = Welcome Int + | SyncGameView GameView | Bye deriving (Show) +deriveBoth (defaultOptionsDropLower 8) ''GameView deriveBoth defaultOptions ''ServerMessage |