Error.Class: add convenice lifting functions

Add functions that allow `Either` and `Maybe` to be easily lifted to a
MonadThrow monad.

Author: hexagonal-sun

CHANGELOG.md

@@ -7,6 +7,8 @@ Notable changes to this project are documented in this file. The format is based
 Breaking changes:
 
 New features:
+ - Add `liftMaybeM` and `liftEitherM` to easily lift `Maybe` and `Either` values
+   to a `MonadThrow` monad.
 
 Bugfixes:
 

src/Control/Monad/Error/Class.purs

@@ -4,8 +4,8 @@ module Control.Monad.Error.Class where
 
 import Prelude
 
-import Data.Maybe (Maybe(..))
 import Data.Either (Either(..), either)
+import Data.Maybe (Maybe(..), maybe)
 import Effect (Effect)
 import Effect.Exception as Ex
 
@@ -102,3 +102,11 @@ withResource acquire release kleisli = do
   result <- try $ kleisli resource
   release resource
   either throwError pure result
+
+-- | Lift a `Maybe` value to a MonadThrow monad.
+liftMaybeM :: forall m e a. MonadThrow e m => e -> Maybe a -> m a
+liftMaybeM error = maybe (throwError error) pure
+
+-- | Lift an `Either` value to a MonadThrow monad.
+liftEitherM :: forall m e a. MonadThrow e m => Either e a -> m a
+liftEitherM = either throwError pure