{-# OPTIONS_GHC -fno-warn-orphans #-}
{-# LANGUAGE TypeSynonymInstances #-}
-- This module is public domain as far as I'm concerned

module NLP.GenI.ErrorIO where

import           Control.Monad.Except

liftEither :: (Monad m) => Either e a -> ExceptT e m a
liftEither (Left e)  = throwError e
liftEither (Right x) = return x