module Chiasma.Function where

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