Control.Monad.Truthful

whenTruthful

unlessTruthful

whenTruthful1