diff options
author | Jasper Van der Jeugt | 2020-07-30 17:02:43 +0200 |
---|---|---|
committer | Jasper Van der Jeugt | 2020-07-30 17:02:43 +0200 |
commit | f4b0e4ec20cd903b7a603edfb043a21bb175b246 (patch) | |
tree | 72e16e3b6851d238698c1d076c73a04e0a618786 /server/lib/Cafp/Messages.hs | |
parent | f5a7875d605010540ec7c9c8f2a3ff4ed0702597 (diff) |
Refactor name changing
Diffstat (limited to '')
-rw-r--r-- | server/lib/Cafp/Messages.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 |