more types
[sqlgg.git] / apply.ml
blobf7d763007991520535530e70f33e557d5ec03c88
2 external id : 'a -> 'a = "%identity"
3 let catch f x = try Some (f x) with _ -> None
4 let tee f x = f x; x