Util/Function.hs

   1 module Util.Function where
   2
   3 infixr 9 .!, ..., ....
   4
   5 (.!) :: (c -> d) -> (a -> b -> c) -> a -> b -> d
   6 (.!) = (.) . (.)
   7
   8 (...) :: (d -> e) -> (a -> b -> c -> d) -> a -> b -> c -> e
   9 (...) = (.!) . (.)
  10
  11 (....) :: (e -> f) -> (a -> b -> c -> d -> e) -> a -> b -> c -> d -> f
  12 (....) = (...) . (.)
  13