-- | Conditionally run an action, using a 'X' event to decide
whenX :: X Bool -> X () -> X ()
whenX a f = a >>= \b -> when b f
whenX :: X Bool -> X () -> X ()
whenX a f = a >>= \b -> when b f
whenX a f = a >>= \b -> when b f