-- | Like 'fromMaybe', but for 'MaybeT' and with a pure default.
fromMaybeTPureDef :: (Monad m) => a -> MaybeT m a -> m a
fromMaybeTPureDef a = fmap (fromMaybe a) . runMaybeT
fromMaybeTPureDef :: (Monad m) => a -> MaybeT m a -> m a
fromMaybeTPureDef a = fmap (fromMaybe a) . runMaybeT
fromMaybeTPureDef a = fmap (fromMaybe a) . runMaybeT