chiasma-0.10.0.0: lib/Chiasma/Function.hs

module Chiasma.Function where

applyWhen :: Bool -> (a -> a) -> a -> a
applyWhen True f x =
  f x
applyWhen False _ x =
  x