Fix Bug 3795

Author: omefire

cabal-install/Distribution/Client/HttpUtils.hs

@@ -415,7 +415,7 @@ wgetTransport :: ConfiguredProgram -> HttpTransport
 wgetTransport prog =
     HttpTransport gethttp posthttp posthttpfile puthttpfile True False
   where
-    gethttp verbosity uri etag destPath reqHeaders = do
+    gethttp verbosity uri etag destPath reqHeaders =  do
         resp <- runWGet verbosity uri args
         (code, etag') <- parseOutput uri resp
         return (code, etag')
@@ -429,7 +429,13 @@ wgetTransport prog =
                [ ["--header", "If-None-Match: " ++ t]
                | t <- maybeToList etag ]
             ++ [ "--header=" ++ show name ++ ": " ++ value
-               | Header name value <- reqHeaders ]
+               | hdr@(Header name value) <- reqHeaders, (not (isRangeHeader hdr)) ]
+
+        -- wget doesn't support range requests.
+        -- so, we ignore range request headers
+        isRangeHeader :: Header -> Bool
+        isRangeHeader (Header HdrRange _) = True
+        isRangeHeader _ = False                           
 
     posthttp = noPostYet