Commit be78d87f authored by André Espaze's avatar André Espaze
Browse files

Clearer http error message

parent 11b91fbd6c8d
......@@ -51,10 +51,10 @@ decodeResponse : ReadError -> D.Decoder a -> Response String -> Result String a
decodeResponse readErr decoder resp =
let
badStatus code body =
"BadStatus "
readErr body
++ " ["
++ String.fromInt code
++ " : "
++ readErr body
++ "]"
in
case resp of
Http.BadUrl_ x ->
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment