hsdev-0.3.2.0: src/Control/Apply/Util.hs

module Control.Apply.Util (
	(&), chain
	) where

(&) :: a -> (a -> b) -> b
(&) = flip ($)

chain :: [a -> a] -> a -> a
chain = foldr (.) id