From a32d92fff9171a8beb948b430e274a1667b3ca35 Mon Sep 17 00:00:00 2001
From: towards-a-new-leftypol <paul_cockshott@protonmail.com>
Date: Sat, 20 Jan 2024 19:59:08 -0500
Subject: [PATCH] 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
 --