unzip file

unzip.hs

{-# LANGUAGE OverloadedStrings #-}
import Codec.Archive.Zip
import Data.ByteString.Lazy (getContents, putStrLn)
import Data.ByteString.Lazy.Char8 (ByteString)
import Prelude hiding (getContents, putStrLn)
import Data.Maybe (maybe)
import System.Environment (getArgs)
import System.Exit (exitFailure)

main = do filePath <- getArgs >>= parse
          zipFile  <- getContents
          let zipFileArchive = toArchive zipFile
          let file = maybe "" fromEntry (findEntryByPath filePath zipFileArchive)
          putStrLn file

parse [] = die
parse (x:_) = return x

die = exitFailure