preserve other headers when adding resume header

It had lost the hAcceptEncoding header that is set as part of the
overriding of http-client's default decompression of compressed files.
Seems likely that would have caused resuming of compressed files to fail
in some cases.

This commit was sponsored by Brett Eisenberg on Patreon.

diff --git a/Utility/Url.hs b/Utility/Url.hs
index 7ef821ca056508c2b6e9879b7ddc0e48d93fcabf..b8a1735630082f5c7b9d24392b2ab4158020a8ef 100644 (file)
--- a/Utility/Url.hs
+++ b/Utility/Url.hs
@@ -495,7 +495,7 @@ downloadConduit meterupdate req file uo =
        -- when supported by the http server. The server may also opt to
        -- send the whole file rather than resuming.
        resumedownload sz = join $ runResourceT $ do
-               let req'' = req' { requestHeaders = resumeFromHeader sz : requestHeaders req }
+               let req'' = req' { requestHeaders = resumeFromHeader sz : requestHeaders req' }
                liftIO $ debugM "url" (show req'')
                resp <- http req'' (httpManager uo)
                if responseStatus resp == partialContent206