[Haskell-cafe] MonadPlus m => Maybe a -> m a