bz2-1.0.0.3: bench/BZip/Dump.hs

module BZip.Dump ( compressDump
                 , decompressDump
                 , decompressForce
                 ) where

import           Control.Applicative
import qualified Data.ByteString.Lazy as BSL
import           System.FilePath      ((</>))
import           System.IO.Temp       (withSystemTempDirectory)

decompressForce :: (BSL.ByteString -> BSL.ByteString) -> IO ()
decompressForce go =
    forceBSL =<<
        (go <$> BSL.readFile "valgrind-3.15.0.tar.bz2")

    where forceBSL = (`seq` pure ()) . last . BSL.toChunks

{-# INLINE decompressDump #-}
decompressDump :: (BSL.ByteString -> BSL.ByteString) -> IO ()
decompressDump go = withSystemTempDirectory "bz2" $
    \fp -> BSL.writeFile (fp </> "valgrind-3.15.0.tar") =<<
        (go <$> BSL.readFile "valgrind-3.15.0.tar.bz2")

{-# INLINE compressDump #-}
compressDump :: (BSL.ByteString -> BSL.ByteString) -> IO ()
compressDump go = withSystemTempDirectory "bz2" $
    \fp -> BSL.writeFile (fp </> "valgrind-3.15.0.tar.bz2") =<<
        (go <$> BSL.readFile "valgrind-3.15.0.tar")