Listing zip archives using zip-conduit

Question

Using the zip-conduit library, I want to list entries in a ZIP archive. I want to print them only filename per line - similar to unzip -l, but without any additional information.

Note: This question was answered using Q&A-style and therefore intentionally doesn't show any research effort!

Answer 1

You can use the entryNames function. By modifying the ZIP extraction example we can print the names instead of extracting.

The following example program takes the ZIP file name from the first commandline parameter and uses mapM_ putStrLn to print them:

import Codec.Archive.Zip (withArchive, entryNames)
import System.Environment (getArgs)

main = do
    -- ZIP file name: First commandline arg
    zipPath:_ <- getArgs
    names <- withArchive zipPath $ entryNames
    mapM_ putStrLn names