lib/prelude.ml

   1
   2 let ($) f g = function x -> f (g x)
   3 let (&) f x = f x
   4 let (>>) x f = f x
   5
   6 external id : 'a -> 'a = "%identity"
   7 let catch f x = try Some (f x) with _ -> None
   8 let tee f x = f x; x
   9 let flip f x y = f y x
  10