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