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
 --