From c535223ff3507bd46c6599cedc62b852ac34338d Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <alcinnz@lavabit.com>
Date: Mon, 31 Oct 2022 20:43:36 +1300
Subject: [PATCH] Correctly report error MIMEtypes.

---
 src/Network/URI/Fetch.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Network/URI/Fetch.hs b/src/Network/URI/Fetch.hs
index 298779e..912b9ab 100644
--- a/src/Network/URI/Fetch.hs
+++ b/src/Network/URI/Fetch.hs
@@ -419,7 +419,7 @@ fetchURL' sess@Session { connCtxt = ctxt } mimes uri@URI {
                 fetchURL' sess {
                     redirectCount = redirectCount sess - 1
                 } mimes $ relativeTo redirect' uri
-            (x, y, err) -> return (uri, mimeERR, Left $ Txt.pack $
+            (x, y, err) -> return (uri, htmlERR, Left $ Txt.pack $
                 trans' sess $ GeminiError x y $ Txt.unpack $
                     Txt.replace "<" "&lt;" $ Txt.replace "&" "&amp;" err)
     where
@@ -557,7 +557,7 @@ fetchHTTPCached session @ Session { trans' = t} shouldCache
                         Just location <- lookup "location" $ HTTP.responseHeaders response,
                         Just uri' <- parseURIReference $ C8.unpack location ->
                     return $ Left $ relativeTo uri' uri
-                (Status code msg, "", _) -> return $ Right (Txt.pack mimeERR,
+                (Status code msg, "", _) -> return $ Right (Txt.pack htmlERR,
                     B.fromStrict $ C8.pack $
                         trans' session $ HTTPStatus code $ C8.unpack msg)
                 (_, body, (mimetype:_)) -> do
@@ -575,9 +575,9 @@ fetchHTTPCached session @ Session { trans' = t} shouldCache
         Right (mime, body) ->
             let mime' = L.map (Txt.unpack . Txt.strip) $ Txt.splitOn ";" mime
             in return $ resolveCharset' uri mime' body
-  `catch` \e -> do return (rawUri, mimeERR, Left $ Txt.pack $ transHttp t e)
+  `catch` \e -> do return (rawUri, htmlERR, Left $ Txt.pack $ transHttp t e)
 fetchHTTPCached session _ [] uri _ _ =
-    return (uri, mimeERR, Left $ Txt.pack $ trans' session $ UnsupportedMIME "")
+    return (uri, htmlERR, Left $ Txt.pack $ trans' session $ UnsupportedMIME "")
 #endif
 
 #if WITH_HTTP_URI || WITH_GEMINI_URI
-- 
2.30.2