From b06fb4f4e10d1439dc1e14ff6918b6e4c0bc93c1 Mon Sep 17 00:00:00 2001 From: Jaro Reinders Date: Sun, 23 Aug 2026 12:08:22 +0200 Subject: [PATCH] Fix #48 --- libarchive/src/Codec/Archive/Internal/Unpack.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libarchive/src/Codec/Archive/Internal/Unpack.hs b/libarchive/src/Codec/Archive/Internal/Unpack.hs index 84e9844..51b9eed 100644 --- a/libarchive/src/Codec/Archive/Internal/Unpack.hs +++ b/libarchive/src/Codec/Archive/Internal/Unpack.hs @@ -82,7 +82,7 @@ archiveAbs support fp a = withCStringArchiveM fp $ \cpath -> -- TODO: general function for format archiveFile :: FilePath -> ArchivePtr -> ArchiveM () -archiveFile = archiveAbs archiveReadSupportFormatAll +archiveFile = archiveAbs (\a -> archiveReadSupportFilterAll a >> archiveReadSupportFormatAll a) -- | This is more efficient than --