module HaskellWorks.CabalCache.Error
  ( nothingToError
  ) where

import Control.Monad.Except

nothingToError :: MonadError e m => e -> Maybe a -> m a
nothingToError :: e -> Maybe a -> m a
nothingToError e
_ (Just a
a) = a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return a
a
nothingToError e
e Maybe a
Nothing  = e -> m a
forall e (m :: * -> *) a. MonadError e m => e -> m a
throwError e
e