Revision 0efada2a src/Ganeti/BasicTypes.hs

b/src/Ganeti/BasicTypes.hs
33 33
  , withError
34 34
  , withErrorT
35 35
  , toError
36
  , toErrorBase
36 37
  , toErrorStr
37 38
  , Error(..) -- re-export from Control.Monad.Error
38 39
  , MonadIO(..) -- re-export from Control.Monad.IO.Class
......
229 230
toError = genericResult throwError return
230 231
{-# INLINE toError #-}
231 232

  
233
-- | Lift a 'ResultT' value into any 'MonadError' with the same base monad.
234
toErrorBase :: (MonadBase b m, MonadError e m) => ResultT e b a -> m a
235
toErrorBase = (toError =<<) . liftBase . runResultT
236
{-# INLINE toErrorBase #-}
237

  
232 238
-- | An alias for @withError strMsg@, which is often used to lift a pure error
233 239
-- to a monad stack. See also 'annotateResult'.
234 240
toErrorStr :: (MonadError e m, Error e) => Result a -> m a

Also available in: Unified diff