libarchive-2.2.5.1: 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 = forceList =<< throwArchiveM
    (readArchiveFile "test/data/llvm-9.0.0.src.tar")