http-client 0.3.6 → 0.3.6.1

raw patch · 2 files changed

+12/−6 lines, 2 files

Files

• Network/HTTP/Client/Core.hs +11/−5
• http-client.cabal +1/−1

@@ -8,7 +8,6 @@     , httpRaw     , responseOpen     , responseClose-    , applyCheckStatus     , httpRedirect     ) where @@ -150,7 +149,7 @@         if redirectCount req0 == 0             then httpRaw req0 manager             else go (redirectCount req0) req0-    maybe (return res) throwIO =<< applyCheckStatus (checkStatus req0) res+    maybe (return res) throwIO =<< applyCheckStatus req0 (checkStatus req0) res   where     go count req' = httpRedirect       count@@ -162,10 +161,11 @@  -- | Apply 'Request'\'s 'checkStatus' and return resulting exception if any. applyCheckStatus-    :: (Status -> ResponseHeaders -> CookieJar -> Maybe SomeException)+    :: Request+    -> (Status -> ResponseHeaders -> CookieJar -> Maybe SomeException)     -> Response BodyReader     -> IO (Maybe SomeException)-applyCheckStatus checkStatus' res =+applyCheckStatus req checkStatus' res =     case checkStatus' (responseStatus res) (responseHeaders res) (responseCookieJar res) of         Nothing -> return Nothing         Just exc -> do@@ -174,7 +174,13 @@                     Just (StatusCodeException s hdrs cookie_jar) -> do                         lbs <- brReadSome (responseBody res) 1024                         return $ toException $ StatusCodeException s (hdrs ++-                            [("X-Response-Body-Start", toStrict' lbs)]) cookie_jar+                            [ ("X-Response-Body-Start", toStrict' lbs)+                            , ("X-Request-URL", S.concat+                                [ method req+                                , " "+                                , S8.pack $ show $ getUri req+                                ])+                            ]) cookie_jar                     _ -> return exc             responseClose res             return (Just exc')

@@ -1,5 +1,5 @@ name:                http-client-version:             0.3.6+version:             0.3.6.1 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