applyWhen :: Bool -> (a -> a) -> a -> a { } #