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