simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2026-01-28 03:44:51 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

doc

Browse source
This commit is contained in:
Simon Cruanes 2015-10-03 08:53:58 +02:00
parent fff366c41c
commit cba2d04049
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/core/CCError.ml
View file

@ -78,7 +78,7 @@ let of_exn_trace e =
with _ -> try_printers l' with _ -> try_printers l'
in in
try_printers !_printers; try_printers !_printers;
Buffer.add_string buf "\nstack trace:\n"; Buffer.add_char buf '\n';
Buffer.add_string buf (Printexc.get_backtrace ()); Buffer.add_string buf (Printexc.get_backtrace ());
`Error (Buffer.contents buf) `Error (Buffer.contents buf)

5
src/core/CCError.mli
View file

@ -52,7 +52,10 @@ val of_exn : exn -> ('a, string) t
val of_exn_trace : exn -> ('a, string) t val of_exn_trace : exn -> ('a, string) t
(** [of_exn_trace e] is similar to [of_exn e], but it adds the stacktrace (** [of_exn_trace e] is similar to [of_exn e], but it adds the stacktrace
to the error message to the error message.
Remember to call [Printexc.record_backtrace true] and compile with the
debug flag for this to work.
@since NEXT_RELEASE *) @since NEXT_RELEASE *)
val fail_printf : ('a, Buffer.t, unit, ('a,string) t) format4 -> 'a val fail_printf : ('a, Buffer.t, unit, ('a,string) t) format4 -> 'a