epub-tools-4.0: src/app/EpubTools/EpubMeta/Util.hs

module EpubTools.EpubMeta.Util
  ( EM , runEM
  , liftIO
  , throwError
  )
  where

import Control.Monad.Except (ExceptT, runExceptT, throwError)
import Control.Monad.Trans (liftIO)


type EM a = (ExceptT String IO) a

runEM :: EM a -> IO (Either String a)
runEM = runExceptT