@@ -352,6 +352,6 @@ lazyRequestBody req =
352352 bss <- loop
353353 return $ LI.Chunk bs bss
354354
355−-- | Apply the provided function to the response header list of the Response.
355+-- | Apply the provided function to the request header list of the Request.
356356mapRequestHeaders :: (H.RequestHeaders -> H.RequestHeaders) -> Request -> Request
357357mapRequestHeaders f request = request { requestHeaders = f (requestHeaders request) }