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.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Network/URI/Messages.hs b/src/Network/URI/Messages.hs
index d146b25..0abdb03 100644
--- a/src/Network/URI/Messages.hs
+++ b/src/Network/URI/Messages.hs
@@ -28,6 +28,7 @@ trans ("en":_) (RequiresInstall mime appsMarkup) =
where linkType = fromMaybe mime $ stripPrefix "x-scheme-handler/" mime
trans ("en":_) (OpenedWith app) = "Opened in " ++ app
trans ("en":_) (ReadFailed msg) = "Failed to read file: " ++ msg
+trans ("en":_) MalformedResponse = "Invalid response!"
#if WITH_HTTP_URI
trans ("en":_) (Http (InvalidUrlException url msg)) = "Invalid URL " ++ url ++ ": " ++ msg
trans ("en":_) (Http (HttpExceptionRequest _ (TooManyRedirects _))) = "Too many redirects!"
@@ -42,7 +43,7 @@ trans (_:locales) err = trans locales err
trans [] err = trans ["en"] err
data Errors = UnsupportedScheme String | UnsupportedMIME String | RequiresInstall String String
- | OpenedWith String | ReadFailed String | RawXML String
+ | OpenedWith String | ReadFailed String | RawXML String | MalformedResponse
#if WITH_HTTP_URI
| Http HttpException
#endif