Ignore content length checks when the stream is encoded

haskell · Jun 4, 2024 · d4e258a · d4e258a
1 parent c17fafb
commit d4e258a
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/lib/GHCup/Download/IOStreams.hs b/lib/GHCup/Download/IOStreams.hs
@@ -123,11 +123,12 @@ downloadInternal = go (5 :: Int)
 
     downloadStream r i' = do
       void setup
-      let size = case getHeader r "Content-Length" of
-            Just x' -> case decimal $ decUTF8Safe x' of
+      -- We can only do content length checks & progress bar when the stream is not encoded
+      let size = case (getHeader r "Content-Length", getHeader r "Content-Encoding") of
+            (Just x', Nothing) -> case decimal $ decUTF8Safe x' of
               Left  _       -> Nothing
               Right (r', _) -> Just r'
-            Nothing -> Nothing
+            _ -> Nothing
 
       forM_ size $ \s -> forM_ eCSize $ \es -> when (es /= s) $ throwIO (ContentLengthError Nothing (Just s) es)
       let size' = eCSize <|> size