Allow people to change their name

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