From f4b0e4ec20cd903b7a603edfb043a21bb175b246 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Thu, 30 Jul 2020 17:02:43 +0200
Subject: Refactor name changing

---
 server/lib/Cafp/Messages.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/server/lib/Cafp/Messages.hs b/server/lib/Cafp/Messages.hs
index d92ce80..29f5575 100644
--- a/server/lib/Cafp/Messages.hs
+++ b/server/lib/Cafp/Messages.hs
@@ -9,8 +9,8 @@ import           Data.Text  (Text)
 import           Elm.Derive
 
 data GameView = GameView
-    { gameViewOpponents  :: [Text]
-    , gameViewPlayerName :: Text
+    { gameViewOpponents :: [Text]
+    , gameViewMyName    :: Text
     } deriving (Show)
 
 data ServerMessage
@@ -20,7 +20,7 @@ data ServerMessage
     deriving (Show)
 
 data ClientMessage
-    = ChangeName Text
+    = ChangeMyName Text
     deriving (Show)
 
 deriveBoth (defaultOptionsDropLower 8) ''GameView
-- 
cgit v1.2.3