minor

[sqlgg.git] / operators.ml

(* $Id$ *)

let (&) f g = function x -> f (g x)
let (>>) x f = f x
external id : 'a -> 'a = "%identity"