RosettaCodeData/Task/Inverted-syntax/Haskell/inverted-syntax-1.hs

when :: Monad m => m () -> Bool -> m ()
action `when` condition = if condition then action else return ()