Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

23 lines (19 sloc) 0.464 kb
module Main where
import System
import System.IO
import qualified Data.ByteString.Lazy as B
import Data.Char
import Data.Set
import Codec.Archive.Zip
main = do
args <- getArgs
if ((length args) < 1)
then putStrLn "You should provide a file as argument"
let arg1:_ = args
bytes <- B.readFile arg1
let ar = toArchive bytes
let cdc = eRelativePath $ head $ zEntries ar
putStrLn $ show cdc
return ()
Jump to Line
Something went wrong with that request. Please try again.