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 /client/src/Messages.elm | |
parent | f5a7875d605010540ec7c9c8f2a3ff4ed0702597 (diff) |
Refactor name changing
Diffstat (limited to 'client/src/Messages.elm')
-rw-r--r-- | client/src/Messages.elm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/client/src/Messages.elm b/client/src/Messages.elm index 730a66d..3fbacc3 100644 --- a/client/src/Messages.elm +++ b/client/src/Messages.elm @@ -10,20 +10,20 @@ import Set exposing (Set) type alias GameView = { opponents: (List String) - , playerName: String + , myName: String } jsonDecGameView : Json.Decode.Decoder ( GameView ) jsonDecGameView = - Json.Decode.succeed (\popponents pplayerName -> {opponents = popponents, playerName = pplayerName}) + Json.Decode.succeed (\popponents pmyName -> {opponents = popponents, myName = pmyName}) |> required "opponents" (Json.Decode.list (Json.Decode.string)) - |> required "playerName" (Json.Decode.string) + |> required "myName" (Json.Decode.string) jsonEncGameView : GameView -> Value jsonEncGameView val = Json.Encode.object [ ("opponents", (Json.Encode.list Json.Encode.string) val.opponents) - , ("playerName", Json.Encode.string val.playerName) + , ("myName", Json.Encode.string val.myName) ] @@ -53,15 +53,15 @@ jsonEncServerMessage val = type ClientMessage = - ChangeName String + ChangeMyName String jsonDecClientMessage : Json.Decode.Decoder ( ClientMessage ) jsonDecClientMessage = - Json.Decode.lazy (\_ -> Json.Decode.map ChangeName (Json.Decode.string)) + Json.Decode.lazy (\_ -> Json.Decode.map ChangeMyName (Json.Decode.string)) jsonEncClientMessage : ClientMessage -> Value -jsonEncClientMessage (ChangeName v1) = +jsonEncClientMessage (ChangeMyName v1) = Json.Encode.string v1 |