summaryrefslogtreecommitdiff
path: root/src/Network/URI/Messages.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/URI/Messages.hs')
-rw-r--r--src/Network/URI/Messages.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Network/URI/Messages.hs b/src/Network/URI/Messages.hs
index 0abdb03..15c27e8 100644
--- a/src/Network/URI/Messages.hs
+++ b/src/Network/URI/Messages.hs
@@ -29,6 +29,7 @@ trans ("en":_) (RequiresInstall mime appsMarkup) =
trans ("en":_) (OpenedWith app) = "Opened in " ++ app
trans ("en":_) (ReadFailed msg) = "Failed to read file: " ++ msg
trans ("en":_) MalformedResponse = "Invalid response!"
+trans ("en":_) ExcessiveRedirects = "Too many redirects!"
#if WITH_HTTP_URI
trans ("en":_) (Http (InvalidUrlException url msg)) = "Invalid URL " ++ url ++ ": " ++ msg
trans ("en":_) (Http (HttpExceptionRequest _ (TooManyRedirects _))) = "Too many redirects!"
@@ -44,6 +45,7 @@ trans [] err = trans ["en"] err
data Errors = UnsupportedScheme String | UnsupportedMIME String | RequiresInstall String String
| OpenedWith String | ReadFailed String | RawXML String | MalformedResponse
+ | ExcessiveRedirects
#if WITH_HTTP_URI
| Http HttpException
#endif