packages feed

http-client-tls 0.3.5.2 → 0.3.5.3

raw patch · 4 files changed

+21/−2 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

ChangeLog.md view
@@ -1,3 +1,7 @@+## 0.3.5.3++* Fix `newTlsManager` [#325](https://github.com/snoyberg/http-client/issues/325)+ ## 0.3.5.2  * [#289](https://github.com/snoyberg/http-client/issues/289):
Network/HTTP/Client/TLS.hs view
@@ -180,7 +180,16 @@ -- -- @since 0.3.4 newTlsManager :: MonadIO m => m Manager-newTlsManager = newTlsManagerWith defaultManagerSettings+newTlsManager = liftIO $ do+    env <- getEnvironment+    let lenv = Map.fromList $ map (first $ T.toLower . T.pack) env+        msocksHTTP = parseSocksSettings env lenv "http_proxy"+        msocksHTTPS = parseSocksSettings env lenv "https_proxy"+        settings = mkManagerSettingsContext' defaultManagerSettings (Just globalConnectionContext) def msocksHTTP msocksHTTPS+        settings' = maybe id (const $ managerSetInsecureProxy proxyFromRequest) msocksHTTP+                  $ maybe id (const $ managerSetSecureProxy proxyFromRequest) msocksHTTPS+                    settings+    newManager settings'  -- | Load up a new TLS manager based upon specified settings, -- respecting proxy environment variables.
http-client-tls.cabal view
@@ -1,5 +1,5 @@ name:                http-client-tls-version:             0.3.5.2+version:             0.3.5.3 synopsis:            http-client backend using the connection package and tls library description:         Hackage documentation generation is not reliable. For up to date documentation, please see: <https://www.stackage.org/package/http-client-tls>. homepage:            https://github.com/snoyberg/http-client
test/Spec.hs view
@@ -44,3 +44,9 @@         request <- parseRequest url         response <- httpNoBody request manager         responseStatus response `shouldBe` status200++    it "global supports TLS" $ do+        manager <- getGlobalManager+        request <- parseRequest "https://httpbin.org"+        response <- httpNoBody request manager+        responseStatus response `shouldBe` status200