Print original headers from backends

1 files changed, 3 insertions, 3 deletions

diff --git a/src/Sproxy/Application.hs b/src/Sproxy/Application.hs
index 790b07c..5ce847c 100644
--- a/src/Sproxy/Application.hs
+++ b/src/Sproxy/Application.hs
@@ -214,12 +214,12 @@ forward mgr req resp = do
   Log.debug $ "BACKEND <<< " ++ msg ++ " " ++ show (BE.requestHeaders beReq)
   BE.withResponse beReq mgr $ \res -> do
         let status = BE.responseStatus res
-            headers = modifyResponseHeaders $ BE.responseHeaders res
+            headers = BE.responseHeaders res
             body = mapOutput (Chunk . fromByteString) . bodyReaderSource $ BE.responseBody res
             logging = if statusCode status `elem` [ 400, 500 ] then
                       Log.warn else Log.debug
-        logging $ "BACKEND >>> " ++ show (statusCode status) ++ " on " ++ msg ++ "\n"
-        resp $ responseSource status headers body
+        logging $ "BACKEND >>> " ++ show (statusCode status) ++ " on " ++ msg ++ " " ++ show headers ++ "\n"
+        resp $ responseSource status (modifyResponseHeaders headers) body
 
 
 modifyRequestHeaders :: RequestHeaders -> RequestHeaders