epubname-2.3.0: src/EpubName/Util.hs

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

module EpubName.Util
   ( EN , runEN
   , throwError
   , asks
   )
   where

import Control.Monad.Error
import Control.Monad.Reader

import EpubName.Opts


type EN a = ReaderT Options (ErrorT String IO) a

runEN :: Options -> EN a -> IO (Either String a)
runEN env ev = runErrorT $ runReaderT ev env