Do not decompress response body

Original response headers say that the content is compressed. This discrepancy confuses the client.
restaumatic · Sep 27, 2017 · 311caeb · 311caeb
1 parent c136c85
commit 311caeb
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/Network/HTTP/Proxy.hs b/Network/HTTP/Proxy.hs
@@ -174,7 +174,9 @@ doUpstreamRequest settings mgr respond mwreq
                             HC.requestBodySourceChunkedIO (sourceRequestBody mwreq)
                         Wai.KnownLength l ->
                             HC.requestBodySourceIO (fromIntegral l) (sourceRequestBody mwreq)
-                , HC.decompress = const True
+                -- Do not touch response body. Otherwise there may be discrepancy
+                -- between response headers and the response content.
+                , HC.decompress = const False
                 }
         handle (respond . errorResponse) $
             HC.withResponse hreq mgr $ \res -> do