1 module Control.Monad.X.Error (Error, runError, module T) where
3 import Control.Monad.X.Identity
4 import qualified Control.Monad.X.ErrorT as E
5 import Control.Monad.X.Trans as T
7 type Error e = E.ErrorT e Identity
9 runError :: Error e a -> Either e a
10 runError m = runIdentity (E.runError m)