| summaryrefslogtreecommitdiff | 
diff options
| author | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2020-05-10 18:08:26 +0200 | 
|---|---|---|
| committer | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2020-05-10 18:08:26 +0200 | 
| commit | fc09d979e4c753377131684b1100c250e89765ea (patch) | |
| tree | a79689b720794b4a5503ac63ff4c84dfd04e6f41 /src/shared/elm/Util/Http.elm | |
| parent | d2667e46fec8f15c29ffa80925d33b6931d8aa3b (diff) | |
...
Diffstat (limited to 'src/shared/elm/Util/Http.elm')
| -rw-r--r-- | src/shared/elm/Util/Http.elm | 22 | 
1 files changed, 0 insertions, 22 deletions
| diff --git a/src/shared/elm/Util/Http.elm b/src/shared/elm/Util/Http.elm deleted file mode 100644 index c098dc7..0000000 --- a/src/shared/elm/Util/Http.elm +++ /dev/null @@ -1,22 +0,0 @@ -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) -            ++ "." -         ) -      (Http.BadBody string) -> -         ( -            "Server response not understood:\"" -            ++ string -            ++ "\"." -         ) | 


