use more retro-compatible fun for CCError.of_exn_trace

This commit is contained in:
Simon Cruanes 2015-10-03 08:52:14 +02:00
parent 096948e712
commit fff366c41c

View file

@ -79,8 +79,7 @@ let of_exn_trace e =
in
try_printers !_printers;
Buffer.add_string buf "\nstack trace:\n";
Buffer.add_string buf
(Printexc.raw_backtrace_to_string (Printexc.get_raw_backtrace ()));
Buffer.add_string buf (Printexc.get_backtrace ());
`Error (Buffer.contents buf)
let map f e = match e with