diff --git a/cabal-install/Distribution/Client/GZipUtils.hs b/cabal-install/Distribution/Client/GZipUtils.hs index f5d688faf57e3456b9ed9e20d1157e0f136a7124..181dde3d7581363302d5fe84aacf7d0eda4dc2fd 100644 --- a/cabal-install/Distribution/Client/GZipUtils.hs +++ b/cabal-install/Distribution/Client/GZipUtils.hs @@ -77,7 +77,7 @@ maybeDecompress bytes = foldStream $ decompressWithErrors gzipOrZlibFormat defau -- Returning it as-is. -- TODO: alternatively, we might consider looking for the two magic bytes -- at the beginning of the gzip header. - foldStream (StreamError DataError _) = bytes + foldStream (StreamError _ _) = bytes foldStream somethingElse = doFold somethingElse doFold StreamEnd = BS.Empty diff --git a/cabal-install/tests/UnitTests/Distribution/Client/GZipUtils.hs b/cabal-install/tests/UnitTests/Distribution/Client/GZipUtils.hs index 00beb1d2529cc680e0ab2c22dbaccdff415b7de5..19808233db4eefd7decca5c3320a26dc1650e3c6 100644 --- a/cabal-install/tests/UnitTests/Distribution/Client/GZipUtils.hs +++ b/cabal-install/tests/UnitTests/Distribution/Client/GZipUtils.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} module UnitTests.Distribution.Client.GZipUtils ( tests ) where @@ -21,9 +20,7 @@ import Test.Tasty.QuickCheck tests :: [TestTree] tests = [ testCase "maybeDecompress" maybeDecompressUnitTest -#if MIN_VERSION_zlib(0,6,0) , testProperty "decompress plain" prop_maybeDecompress_plain -#endif , testProperty "decompress zlib" prop_maybeDecompress_zlib , testProperty "decompress gzip" prop_maybeDecompress_gzip ]