diff --git a/http-client/ChangeLog.md b/http-client/ChangeLog.md index e29dcd5a..0a99830a 100644 --- a/http-client/ChangeLog.md +++ b/http-client/ChangeLog.md @@ -1,5 +1,9 @@ # Changelog for http-client +## 0.7.17 + +* Add `managerSetMaxHeaderLength` to `Client` to change `ManagerSettings` `MaxHeaderLength`. + ## 0.7.16 * Add `responseEarlyHints` field to `Response`, containing a list of all HTTP 103 Early Hints headers received from the server. diff --git a/http-client/Network/HTTP/Client.hs b/http-client/Network/HTTP/Client.hs index ab1b8c06..97ba8c1a 100644 --- a/http-client/Network/HTTP/Client.hs +++ b/http-client/Network/HTTP/Client.hs @@ -112,6 +112,7 @@ module Network.HTTP.Client , managerSetProxy , managerSetInsecureProxy , managerSetSecureProxy + , managerSetMaxHeaderLength , ProxyOverride , proxyFromRequest , noProxy @@ -320,6 +321,11 @@ managerSetSecureProxy po m = m { managerProxySecure = po } managerSetProxy :: ProxyOverride -> ManagerSettings -> ManagerSettings managerSetProxy po = managerSetInsecureProxy po . managerSetSecureProxy po +-- @since 0.7.17 +managerSetMaxHeaderLength :: Int -> ManagerSettings -> ManagerSettings +managerSetMaxHeaderLength l manager = manager + { managerMaxHeaderLength = Just $ MaxHeaderLength l } + -- $example1 -- = Example Usage -- diff --git a/http-client/http-client.cabal b/http-client/http-client.cabal index f8d4f0d4..85862820 100644 --- a/http-client/http-client.cabal +++ b/http-client/http-client.cabal @@ -1,5 +1,5 @@ name: http-client -version: 0.7.16 +version: 0.7.17 synopsis: An HTTP client engine description: Hackage documentation generation is not reliable. For up to date documentation, please see: . homepage: https://github.com/snoyberg/http-client