summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'src/shared/elm/Util')
-rw-r--r--src/shared/elm/Util/Http.elm6
1 files changed, 2 insertions, 4 deletions
diff --git a/src/shared/elm/Util/Http.elm b/src/shared/elm/Util/Http.elm
index a32a7c7..c098dc7 100644
--- a/src/shared/elm/Util/Http.elm
+++ b/src/shared/elm/Util/Http.elm
@@ -11,12 +11,10 @@ error_to_string error =
(Http.BadStatus response) ->
(
"The HTTP request failed: "
- ++ (String.fromInt response.status.code)
- ++ ", "
- ++ response.status.message
+ ++ (String.fromInt response)
++ "."
)
- (Http.BadPayload string _) ->
+ (Http.BadBody string) ->
(
"Server response not understood:\""
++ string