-- | Force an ErrorOr to either a monad failure or the ok value.
forceError :: (MonadIO m) => ErrorOr a -> m a
forceError (Left err) = fail err
forceError :: (MonadIO m) => ErrorOr a -> m a
forceError (Left err) = fail err
forceError (Left err) = fail err