Merge pull request #448 from edsko/pr/enable-range-requests-for-tgz

Enable range reuqests for the 01-index.tar.gz

Author: dcoutts

Distribution/Server/Features/Core.hs

@@ -608,13 +608,15 @@ coreFeature ServerEnv{serverBlobStore = store} UserFeature{..}
       tarball <- indexTarballLegacyGz <$> readAsyncCache cacheIndexTarball
       let tarballmd5 = show $ tarGzHashMD5 tarball
       cacheControl [Public, NoTransform, maxAgeMinutes 5] (ETag tarballmd5)
+      enableRange
       return $ toResponse tarball
 
     serveIncremPackagesIndexTarGz :: DynamicPath -> ServerPartE Response
     serveIncremPackagesIndexTarGz _ = do
       tarball <- indexTarballIncremGz <$> readAsyncCache cacheIndexTarball
       let tarballmd5 = show $ tarGzHashMD5 tarball
       cacheControl [Public, NoTransform, maxAgeMinutes 5] (ETag tarballmd5)
+      enableRange
       return $ toResponse tarball
 
     serveIncremPackagesIndexTar :: DynamicPath -> ServerPartE Response
@@ -623,7 +625,6 @@ coreFeature ServerEnv{serverBlobStore = store} UserFeature{..}
       let tarballmd5 = show $ tarHashMD5 tarball
       cacheControl [Public, NoTransform, maxAgeMinutes 5] (ETag tarballmd5)
       enableRange
-      enableGZip' 3 -- Low compression level to save server CPU
       return $ toResponse tarball
 
     -- TODO: should we include more information here? description and