在查看codepad.org后,我受到FizzBuzz游戏的启发,发现自己需要一些函数:
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上找到,但没有。
这个东西不像我想象的那么有用吗?
在查看codepad.org后,我受到FizzBuzz游戏的启发,发现自己需要一些函数:
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上找到,但没有。
这个东西不像我想象的那么有用吗?