Jonathan Knowles jonathanknowles

## ocaml_backtrace_decapitation.ml
(* A demonstration of OCaml Exception Backtrace Decapitation *)
(* Author: Jonathan Knowles <jonathan.knowles@eu.citrix.com> *)

exception Foo
exception Bar

type ('a, 'b) result = Success of 'a | Failure of 'b

let try_finally f g =
	let fr = try Success (f ()) with e -> Failure (e) in
	(* A demonstration of OCaml Exception Backtrace Decapitation *)
	(* Author: Jonathan Knowles <jonathan.knowles@eu.citrix.com> *)

	exception Foo
	exception Bar

	type ('a, 'b) result = Success of 'a \| Failure of 'b

	let try_finally f g =
	let fr = try Success (f ()) with e -> Failure (e) in