Library for parsing epub document metadata (Haskell)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| #! /usr/bin/runhaskell -isrc
-- License: BSD3 (see LICENSE)
-- Author: Dino Morelli <dino@ui3.info>
import Control.Monad.Error ( runErrorT )
import System.Environment ( getArgs )
import Codec.Epub.Opf.Parse ( parseXmlToOpf )
main :: IO ()
main = do
opfXmlContents <- (fmap head) getArgs >>= readFile
parseResult <- runErrorT $ parseXmlToOpf opfXmlContents
either print print parseResult
|