Source

hs-libzip / LibZip / examples / hzip.hs

Diff from to

File LibZip/examples/hzip.hs

 list :: FilePath -> IO ()
 list archive = do
   stats <- withArchive [] archive $ do
-             n <- numFiles
+             n <- numFiles []
              mapM (fileStatIx []) [0..(n-1)]
   mapM_ printEntry stats
   where
 extract :: FilePath -> FilePath -> [FilePath] -> IO ()
 extract outdir archive onlyFiles =
   withArchive [] archive $ do
-    n <- numFiles
+    n <- numFiles []
     mapM_ (extractEntry outdir onlyFiles) [0..(n-1)]
 
 -- silently overwrites existing files
-extractEntry :: FilePath -> [FilePath] -> Int -> Archive ()
+extractEntry :: FilePath -> [FilePath] -> Integer -> Archive ()
 extractEntry outdir onlyFiles i = do
   name <- fileName [] i
   let fspath = joinPath [outdir, name]