[project @ 2003-06-04 14:52:09 by ralf]
[packages/old-time.git] / Control / Monad / X / Error.hs
1 module Control.Monad.X.Error (Error, runError, module T) where
2
3 import Control.Monad.X.Identity
4 import qualified Control.Monad.X.ErrorT as E
5 import Control.Monad.X.Trans as T
6
7 type Error e = E.ErrorT e Identity
8
9 runError :: Error e a -> Either e a
10 runError m = runIdentity (E.runError m)
11
12