camlspotter avatar camlspotter committed bdd2484

added Printexc functions

Comments (0)

Files changed (2)

 let try_ignore' f = try f () with _ -> ()
 let try_default' ~default f = try f () with _ -> default ();;
 let try_bool' f = try ignore (f ()); true with _ -> false
+
+(* Printexc 
+
+   Printexc has a very bad name. Printexc for exn ?
+*)
+let to_string        = Printexc.to_string
+let format ppf t     = Format.pp_print_string ppf (Printexc.to_string t)
+let print_backtrace  = Printexc.print_backtrace
+let get_backtrace    = Printexc.get_backtrace
+let register_printer = Printexc.register_printer
 val try_default' : default: (unit -> 'a) -> (unit -> 'a) -> 'a
 val try_bool'    : (unit -> unit) -> bool (* success/fail *)
 (** [true] at success *)
+
+(* Printexc + alpha *)
+
+val to_string : exn -> string
+val format : Format.formatter -> exn -> unit
+val print_backtrace : out_channel -> unit
+val get_backtrace : unit -> string
+val register_printer : (exn -> string option) -> unit
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.