Haskell: (MonadPlus m => Bool -> a -> m a) 没有用吗？

Question

在 taking a gander at codepad.org 之后，我受到了使用 FizzBu​​zz 的启发。 ，并发现自己想要一些功能:

mwhen :: MonadPlus m => Bool -> a -> m a
mwhen b = if b then return else const mzero

这样我就可以mwhen (n/? 3) "Foo"`mappend` mwhen (n/? 5) "Bar"

我预计它会出现在 hoogle 上，但是 no dice .

这是否没有我想象的那么有用？

Answer 1

mwhen b a 恰好是guard b >> return a。当您在 guard 之后执行更多操作时，通常会在 mwhen 之前绑定(bind) a 并且不需要返回。所以 mwhen 的用处似乎主要是在 do block 末尾节省一些击键。