Sink entries to the archive:

{-# LANGUAGE OverloadedStrings #-}

import qualified Data.Conduit.Binary as CB
import           Codec.Archive.Zip


main = do
    withArchive "some.zip" $ do
        sinkEntry "first"  $ CB.sourceLbs "hello"
        sinkEntry "second" $ CB.sourceLbs "world"

Source first entry from the archive:

import           System.Environment (getArgs)
import qualified Data.Conduit.Binary as CB
import           Codec.Archive.Zip

main = do
    archivePath:_ <- getArgs
    withArchive archivePath $ do
        name:_ <- entryNames
        sourceEntry name $ CB.sinkFile name

List entries in the archive:

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

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

Add files to the archive:

import Control.Monad (filterM)
import System.Directory (doesFileExist, getDirectoryContents)
import System.Environment (getArgs)
import Codec.Archive.Zip

main = do
    dirPath:_ <- getArgs
    paths     <- getDirectoryContents dirPath
    filePaths <- filterM doesFileExist paths
    withArchive "some.zip" $ addFiles filePaths

Extract files from the archive:

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

main = do
    dirPath:_ <- getArgs
    withArchive "some.zip" $ do
        names <- entryNames
        extractFiles names dirPath