epubmeta.hs

-- Copyright: 2010, 2011 Dino Morelli
-- License: BSD3 (see LICENSE)
-- Author: Dino Morelli <dino@ui3.info>

import Control.Monad.Error
import System.Environment ( getArgs )
import System.Exit

import Codec.Epub.Opf.Cli.Opts
import Codec.Epub.Opf.Format.Package
import Codec.Epub.Opf.Parse


main :: IO ()
main = do
   (opts, paths) <- getArgs >>= parseOpts

   when ((optHelp opts) || (null paths)) $ do
      putStrLn usageText
      exitWith $ ExitFailure 1

   let zipPath = head paths
   result <- runErrorT $ parseEpubOpf zipPath

   putStr $ either id (formatPackage (optVerbose opts)) result