Add requesting user data.

2018-12-13 02:15:14 -08:00
parent 2505610aa2
commit 2449a3c8c4
4 changed files with 29 additions and 0 deletions
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -60,6 +60,7 @@ update msg model = case msg of
    ReceiveLoginResponse r -> updateLoginResponse model r
    ReceiveFirstSyncResponse r -> updateSyncResponse model r False
    ReceiveSyncResponse r -> updateSyncResponse model r True
+    ReceiveUserData s r -> (model, Cmd.none)
    ChangeRoomText r t -> ({ model | roomText = Dict.insert r t model.roomText}, Cmd.none)
    SendRoomText r -> updateSendRoomText model r
    SendRoomTextResponse r -> (model, Cmd.none)