simple gunzip test

gunzip.hs

import Control.Monad 
import qualified Data.ByteString.Lazy as B
import qualified Codec.Compression.GZip as GZip
import System.IO

main :: IO ()
main = do 
  putStrLn "gzip test"
  withFile "testtest.hs.gz" ReadMode $ \h -> do 
    bcontents <- B.hGetContents h
    b <- return . B.any ( == 0 ) .  B.take 100 $ bcontents
    when b $ do 
      let content = GZip.decompress bcontents 
      B.putStrLn content