From a32d92fff9171a8beb948b430e274a1667b3ca35 Mon Sep 17 00:00:00 2001 From: towards-a-new-leftypol Date: Sat, 20 Jan 2024 19:59:08 -0500 Subject: [PATCH 1/2] Add managerSetMaxHeaderLength to Client interface --- http-client/Network/HTTP/Client.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/http-client/Network/HTTP/Client.hs b/http-client/Network/HTTP/Client.hs index ab1b8c06..4f211946 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,10 @@ managerSetSecureProxy po m = m { managerProxySecure = po } managerSetProxy :: ProxyOverride -> ManagerSettings -> ManagerSettings managerSetProxy po = managerSetInsecureProxy po . managerSetSecureProxy po +managerSetMaxHeaderLength :: Int -> ManagerSettings -> ManagerSettings +managerSetMaxHeaderLength l manager = manager + { managerMaxHeaderLength = Just $ MaxHeaderLength l } + -- $example1 -- = Example Usage -- From b6270d2342f98b0b4d546765169d92cd5326ddc4 Mon Sep 17 00:00:00 2001 From: towards-a-new-leftypol Date: Tue, 19 Mar 2024 17:50:36 -0400 Subject: [PATCH 2/2] Bump version to 0.7.17 for PR 533 --- http-client/ChangeLog.md | 4 ++++ http-client/Network/HTTP/Client.hs | 1 + http-client/http-client.cabal | 2 +- 3 files changed, 6 insertions(+), 1 deletion(-) 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 4f211946..97ba8c1a 100644 --- a/http-client/Network/HTTP/Client.hs +++ b/http-client/Network/HTTP/Client.hs @@ -321,6 +321,7 @@ 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 } 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