# Pastebin wyhuCbCd
mwhen :: Monoid m => Bool -> m -> m
mwhen True x = x
mwhen False _ = mempty