From fcc78798121a0bd51265bb31eb051d1bb79ad9d3 Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Sun, 20 Nov 2016 18:43:37 +0300
Subject: Remove some headers which are set automatically
By underlying HTTP Client or WAI
---
src/Sproxy/Application.hs | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
(limited to 'src')
diff --git a/src/Sproxy/Application.hs b/src/Sproxy/Application.hs
index 801212c..790b07c 100644
--- a/src/Sproxy/Application.hs
+++ b/src/Sproxy/Application.hs
@@ -28,8 +28,9 @@ import Data.Word8 (_colon)
import Foreign.C.Types (CTime(..))
import Network.HTTP.Client.Conduit (bodyReaderSource)
import Network.HTTP.Conduit (requestBodySourceChunkedIO, requestBodySourceIO)
-import Network.HTTP.Types (RequestHeaders, ResponseHeaders, hConnection,
- hContentLength, hContentType, hCookie, hLocation, methodGet)
+import Network.HTTP.Types (RequestHeaders, ResponseHeaders, methodGet)
+import Network.HTTP.Types.Header ( hConnection,
+ hContentLength, hContentType, hCookie, hLocation, hTransferEncoding )
import Network.HTTP.Types.Status ( Status(..), badRequest400, forbidden403, found302,
internalServerError500, methodNotAllowed405, movedPermanently301,
networkAuthenticationRequired511, notFound404, ok200, seeOther303, temporaryRedirect307 )
@@ -227,7 +228,8 @@ modifyRequestHeaders = filter (\(n, _) -> n `notElem` ban)
ban =
[
hConnection
- , hContentLength -- XXX to avoid duplicate header
+ , hContentLength -- XXX This is set automtically before sending request to backend
+ , hTransferEncoding -- XXX Likewise
]
modifyResponseHeaders :: ResponseHeaders -> ResponseHeaders
@@ -236,6 +238,7 @@ modifyResponseHeaders = filter (\(n, _) -> n `notElem` ban)
ban =
[
hConnection
+ , hTransferEncoding -- XXX This is set automtically when sending respond from sproxy
]
authenticationRequired :: ByteString -> HashMap Text OAuth2Client -> W.Application
--
cgit v1.2.3