Add managerSetMaxHeaderLength to Client interface

snoyberg · Jan 21, 2024 · a32d92f · a32d92f
1 parent a1c5e34
commit a32d92f
Showing 1 changed file with 5 additions and 0 deletions.
diff --git 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
 --