RosettaCodeData/Task/Inverted-syntax/Haskell/inverted-syntax-1.hs
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

2 lines
106 B
Haskell

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