Basic syncing

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