libarchive-2.2.5.0: mem/Mem.hs

module Main ( main ) where

import           Codec.Archive
import           Control.Exception (throw)

forceList :: [a] -> IO ()
forceList = (`seq` mempty) . last

main :: IO ()
main = readArc

readArc :: IO ()
readArc = either throw forceList =<< runArchiveM
    (readArchiveFile "test/data/llvm-9.0.0.src.tar")