Update configurator to use Exn.raise_with_backtrace
This commit is contained in:
parent
52a3833e0e
commit
c0c69b44db
|
@ -447,9 +447,10 @@ let main ?(args=[]) ~name f =
|
||||||
try
|
try
|
||||||
f t
|
f t
|
||||||
with exn ->
|
with exn ->
|
||||||
|
let bt = Printexc.get_raw_backtrace () in
|
||||||
List.iter (List.rev !log_db) ~f:(eprintf "%s\n");
|
List.iter (List.rev !log_db) ~f:(eprintf "%s\n");
|
||||||
match exn with
|
match exn with
|
||||||
| Fatal_error msg ->
|
| Fatal_error msg ->
|
||||||
eprintf "Error: %s\n%!" msg;
|
eprintf "Error: %s\n%!" msg;
|
||||||
exit 1
|
exit 1
|
||||||
| _ -> Exn.reraise exn
|
| _ -> Exn.raise_with_backtrace exn bt
|
||||||
|
|
Loading…
Reference in New Issue