flewkey/tooty
1
0
Fork 0
Code Releases Activity

Add error logging to WS errors.

Browse Source
This commit is contained in:
Nicolas Perriault 2017-04-25 17:27:21 +02:00
parent b0c6bc0240
commit a2e4014b56
No known key found for this signature in database
GPG Key ID: DA5E4C83904F7A2A
1 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Model.elm
View File

@ -540,9 +540,13 @@ update msg model =
{ model | notifications = [], errors = (errorText error) :: model.errors } ! [] { model | notifications = [], errors = (errorText error) :: model.errors } ! []
NewWebsocketUserMessage message -> NewWebsocketUserMessage message ->
let
logError label error message =
Debug.log (label ++ " WS error: " ++ error) message
in
case (Mastodon.decodeWebSocketMessage message) of case (Mastodon.decodeWebSocketMessage message) of
Mastodon.EventError error -> Mastodon.EventError error ->
{ model | errors = error :: model.errors } ! [] { model | errors = (logError "EventError" error message) :: model.errors } ! []
Mastodon.NotificationResult result -> Mastodon.NotificationResult result ->
case result of case result of
@ -550,7 +554,7 @@ update msg model =
{ model | notifications = Mastodon.addNotificationToAggregates notification model.notifications } ! [] { model | notifications = Mastodon.addNotificationToAggregates notification model.notifications } ! []
Err error -> Err error ->
{ model | errors = error :: model.errors } ! [] { model | errors = (logError "NotificationResult" error message) :: model.errors } ! []
Mastodon.StatusResult result -> Mastodon.StatusResult result ->
case result of case result of
@ -558,7 +562,7 @@ update msg model =
{ model | userTimeline = status :: model.userTimeline } ! [] { model | userTimeline = status :: model.userTimeline } ! []
Err error -> Err error ->
{ model | errors = error :: model.errors } ! [] { model | errors = (logError "StatusResult" error message) :: model.errors } ! []
NewWebsocketLocalMessage message -> NewWebsocketLocalMessage message ->
-- @TODO -- @TODO