Sink entries to the archive:

{-# LANGUAGE OverloadedStrings #-}

import Data.Conduit.Combinators
import Codec.Archive.Zip

main :: IO ()
main = do
    withArchive "some.zip" $ do
        sinkEntry "first"  $ sourceLazy "hello"
        sinkEntry "second" $ sourceLazy "world"

Source first entry from the archive:

import System.Environment (getArgs)
import Data.Conduit.Combinators
import Codec.Archive.Zip

main :: IO ()
main = do
    archivePath:_ <- getArgs
    withArchive archivePath $ do
        name:_ <- entryNames
        sourceEntry name $ sinkFile name

List entries in the archive:

import System.Environment (getArgs)
import Codec.Archive.Zip

main :: IO ()
main = do
    archivePath:_ <- getArgs
    names <- withArchive archivePath entryNames
    mapM_ putStrLn names