aboutsummaryrefslogtreecommitdiff
path: root/client/src/Client.elm
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--client/src/Client.elm3
1 files changed, 2 insertions, 1 deletions
diff --git a/client/src/Client.elm b/client/src/Client.elm
index ffb2b0e..0644a12 100644
--- a/client/src/Client.elm
+++ b/client/src/Client.elm
@@ -46,7 +46,8 @@ update msg model = case msg of
WebSocketIn json ->
case Json.Decode.decodeString Messages.jsonDecServerMessage json of
Err str -> (Error <| Json.Decode.errorToString str, Cmd.none)
- Ok Messages.Welcome -> Debug.log "Welcome" (model, Cmd.none)
+ Ok (Messages.Welcome playerId) ->
+ Debug.log ("Welcome " ++ String.fromInt playerId) (model, Cmd.none)
Ok Messages.Bye -> Debug.log "Bye" (model, Cmd.none)
main : Program () Model Msg