chiasma-0.12.2.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