module Data.Function.Tools (
  const2
, applyWhen
, apply2way
) where

const2 :: a -> b -> c -> a
const2 = const . const

applyWhen :: Bool -> (a -> a) -> a -> a
applyWhen b f = if b then f else id

apply2way :: (a -> b -> c) -> (d -> a) -> (d -> b) -> d -> c
apply2way fgen f1 f2 x = fgen (f1 x) (f2 x)