First outside contribution!

Introduces a new function onlyWhen :: (a -> boolean) -> b -> (a -> b) -> a -> b thanks to @briancavalier