Haskell Chain

Chain.hs

module Chain where

infixl 2 .>
infixr 1 .>>

{-| Chain operator.
  Chain functions in a do-like (monadic bind)-like style.
  `f .> g` will return a function that will apply f, then apply g.
  It can be alternatively be defined as: `f .> g = g . f` which is just
  `flip (.)`.
-}
(.>) :: (a -> b) -> (b -> c) -> a -> c
(.>) = flip (.)

{-| Pass to. (Reverse of applying.)
  Convenience function to use with applying chained functions.
  This enables the following:
    `x .>> f .> g`
  instead of
    `(f .> g) x` or `g (f x)`.
-}
(.>>) :: a -> (a -> b) -> b
a .>> f = f a