summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNathanael Sensfelder <SpamShield0@MultiAgentSystems.org>2020-05-10 18:08:26 +0200
committerNathanael Sensfelder <SpamShield0@MultiAgentSystems.org>2020-05-10 18:08:26 +0200
commitfc09d979e4c753377131684b1100c250e89765ea (patch)
treea79689b720794b4a5503ac63ff4c84dfd04e6f41 /src/shared/elm/Util/Http.elm
parentd2667e46fec8f15c29ffa80925d33b6931d8aa3b (diff)
...
Diffstat (limited to 'src/shared/elm/Util/Http.elm')
-rw-r--r--src/shared/elm/Util/Http.elm22
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
- ++ "\"."
- )