From 4e1068c41b84f0813b82fe61816271b92ca76f48 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Thu, 30 Jul 2020 14:43:25 +0200
Subject: Basic syncing

---
 server/lib/Cafp/Messages.hs | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

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

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
-- 
cgit v1.2.3