From b16e56138490be4e52c21a5aa08b32fa558bc682 Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Fri, 28 Jan 2022 22:48:23 +0100 Subject: [PATCH] Allow unpacking legacy lzma archives, fixes #307 --- lib/GHCup/Utils.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/GHCup/Utils.hs b/lib/GHCup/Utils.hs index 05d23c3..db686d6 100644 --- a/lib/GHCup/Utils.hs +++ b/lib/GHCup/Utils.hs @@ -715,7 +715,7 @@ unpackToDir dfp av = do (untar . GZip.decompress =<< rf av) | ".tar.xz" `isSuffixOf` fn -> do filecontents <- liftE $ rf av - let decompressed = Lzma.decompress filecontents + let decompressed = Lzma.decompressWith (Lzma.defaultDecompressParams { Lzma.decompressAutoDecoder= True }) filecontents liftE $ untar decompressed | ".tar.bz2" `isSuffixOf` fn -> liftE (untar . BZip.decompress =<< rf av) @@ -744,7 +744,7 @@ getArchiveFiles av = do (entries . GZip.decompress =<< rf av) | ".tar.xz" `isSuffixOf` fn -> do filecontents <- liftE $ rf av - let decompressed = Lzma.decompress filecontents + let decompressed = Lzma.decompressWith (Lzma.defaultDecompressParams { Lzma.decompressAutoDecoder= True }) filecontents liftE $ entries decompressed | ".tar.bz2" `isSuffixOf` fn -> liftE (entries . BZip.decompress =<< rf av)