http-client 0.4.2.1 → 0.4.2.2

raw patch · 2 files changed

+4/−3 lines, 2 files

Files

• Network/HTTP/Client/Response.hs +3/−2
• http-client.cabal +1/−1

@@ -18,7 +18,7 @@ import Data.Default.Class (def)  import qualified Network.HTTP.Types as W-import Network.URI (parseURIReference)+import Network.URI (parseURIReference, escapeURIString, isAllowedInURI)  import Network.HTTP.Client.Types @@ -56,7 +56,8 @@ getRedirectedRequest req hs cookie_jar code     | 300 <= code && code < 400 = do         l' <- lookup "location" hs-        req' <- setUriRelative req =<< parseURIReference (S8.unpack l')+        let l = escapeURIString isAllowedInURI (S8.unpack l')+        req' <- setUriRelative req =<< parseURIReference l         return $             if code == 302 || code == 303                 -- According to the spec, this should *only* be for status code

@@ -1,5 +1,5 @@ name:                http-client-version:             0.4.2.1+version:             0.4.2.2 synopsis:            An HTTP client engine, intended as a base layer for more user-friendly packages. description:         This codebase has been refactored from http-conduit. homepage:            https://github.com/snoyberg/http-client