http-client-openssl 0.2.1.0 → 0.2.1.1

raw patch · 4 files changed

+18/−2 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ChangeLog.md +4/−0
• Network/HTTP/Client/OpenSSL.hs +5/−1
• http-client-openssl.cabal +1/−1
• test/Spec.hs +8/−0

@@ -1,3 +1,7 @@+## 0.2.1.1++* Fix a connection-bug with http-proxy(Previous version closes a connection before reading all respose-data.)+ ## 0.2.1.0  * Add support for http-proxy

@@ -11,6 +11,7 @@ import Network.HTTP.Client.Internal import Control.Exception import Network.Socket (HostAddress)+import Network.Socket.ByteString (sendAll, recv) import OpenSSL import qualified Network.Socket as N import qualified OpenSSL.Session       as SSL@@ -68,7 +69,10 @@             bracketOnError (N.socket family socketType protocol) (N.close)                 $ \sock -> do                     N.connect sock address-                    conn <- socketConnection sock 32752+                    conn <- makeConnection+                            (recv sock 32752)+                            (sendAll sock)+                            (return ())                     connectionWrite conn connstr                     checkConn conn                     ssl <- SSL.connection ctx sock

@@ -1,5 +1,5 @@ name:                http-client-openssl-version:             0.2.1.0+version:             0.2.1.1 synopsis:            http-client backend using the OpenSSL library. description:         Hackage documentation generation is not reliable. For up to date documentation, please see: <http://www.stackage.org/package/http-client>. homepage:            https://github.com/snoyberg/http-client

@@ -22,4 +22,12 @@         withResponse req manager $ \res -> do             responseStatus res `shouldBe` status200             lookup "content-type" (responseHeaders res) `shouldBe` Just "application/x-gzip"+    it "compare responses without and with proxy" $ do+        manager <- newManager $ opensslManagerSettings SSL.context+        let req = parseRequest_ "GET https://raw.githubusercontent.com/snoyberg/http-client/master/README.md"+        v_org <- withResponse req manager $ \res -> do+          lbsResponse res+        v <- withResponse (addProxy "localhost" 8080 req) manager $ \res -> do+          lbsResponse res+        (responseBody v) `shouldBe` (responseBody v_org) #endif