From 6f7fb373813862c97ff657d3db62b882c29982e3 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Fri, 21 Dec 2018 23:03:02 +0100 Subject: Converts the login module to Elm 0.19. --- src/shared/elm/Util/Http.elm | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 src/shared/elm/Util/Http.elm (limited to 'src/shared/elm') diff --git a/src/shared/elm/Util/Http.elm b/src/shared/elm/Util/Http.elm new file mode 100644 index 0000000..a32a7c7 --- /dev/null +++ b/src/shared/elm/Util/Http.elm @@ -0,0 +1,24 @@ +module Util.Http exposing (error_to_string) + +import Http + +error_to_string : Http.Error -> String +error_to_string error = + case error of + (Http.BadUrl string) -> ("Invalid URL: \"" ++ string ++ "\"") + Http.Timeout -> "Timed out" + Http.NetworkError -> "Connection lost, network error." + (Http.BadStatus response) -> + ( + "The HTTP request failed: " + ++ (String.fromInt response.status.code) + ++ ", " + ++ response.status.message + ++ "." + ) + (Http.BadPayload string _) -> + ( + "Server response not understood:\"" + ++ string + ++ "\"." + ) -- cgit v1.2.3-70-g09d2