~alcinnz/hurl

af23364db6562ed15d19290f24ded890f26a7d75 — Adrian Cochrane 4 years ago d40eef0
Forgot to expose some necessary APIs, and fixed about: bug.
2 files changed, 3 insertions(+), 3 deletions(-)

M hurl.cabal
M src/Network/URI/Fetch.hs
M hurl.cabal => hurl.cabal +1 -1
@@ 10,7 10,7 @@ name:                hurl
-- 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

M src/Network/URI/Fetch.hs => src/Network/URI/Fetch.hs +2 -2
@@ 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@(URI {uriScheme = "about:", uriPath = ""}) =
    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)