hurl 1.4.0.0 → 1.4.1.0

raw patch · 3 files changed

+4/−4 lines, 3 files

Files

hurl.cabal +1/−1
src/Network/URI/Charset.hs +1/−1
src/Network/URI/Fetch.hs +2/−2

hurl.cabal view

@@ -10,7 +10,7 @@ -- PVP summary:      +-+------- breaking API changes --                   | | +----- non-breaking API additions --                   | | | +--- code changes with no API change-version:             1.4.0.0+version:             1.4.1.0  -- A short (one-line) description of the package. synopsis:            Haskell URL resolver

src/Network/URI/Charset.hs view

@@ -38,7 +38,7 @@ convertCharset charset = -- FIXME Is this the best fallback for unsupported charsets?     trace ("Unsupported text encoding" ++ charset) $ decodeUtf8With replaceChar -replaceChar error _ = trace error $ Just '�'+replaceChar _ _ = Just '�'  -- | Lists all charsets supported by convertCharset charsets :: [Text]

src/Network/URI/Fetch.hs view

@@ -2,7 +2,7 @@ {-# LANGUAGE OverloadedStrings #-} -- | Retrieves documents for a URL, supporting multiple URL schemes that can be -- disabled at build-time for reduced dependencies.-module Network.URI.Fetch(Session, locale, newSession,+module Network.URI.Fetch(Session(locale, aboutPages), newSession,     fetchURL, fetchURL', fetchURLs, mimeERR, htmlERR,     dispatchByMIME, saveDownload, downloadToURI) where @@ -123,7 +123,7 @@     fetchURL' session mimes $ uri {uriPath = "version"} fetchURL' Session {aboutPages = pages} _ url@URI {uriScheme = "about:", uriPath = path} =     return (url,-        Txt.unpack $ convertCharset "utf-8" $ B.toStrict $+        Txt.unpack $ Txt.strip $ convertCharset "utf-8" $ B.toStrict $             llookup (path ++ ".mime") "text/html" pages,         Right $ llookup path "" pages)