Add http for sending typing indicators.

2018-12-17 19:39:37 -08:00
parent 6d39279591
commit 7f0624f112
3 changed files with 14 additions and 1 deletions
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -77,6 +77,7 @@ update msg model = case msg of
    SendRoomText r -> updateSendRoomText model r
    SendRoomTextResponse r -> (model, Cmd.none)
    ReceiveCompletedReadMarker r -> (model, Cmd.none)
+    ReceiveCompletedTypingIndicator r -> (model, Cmd.none)
    ReceiveStoreData d -> updateStoreData model d

 updateStoreData : Model -> Json.Encode.Value -> (Model, Cmd Msg)