Print backtrace in case of uncaught exception
Otherwise uncaught by configurator are hard to debug
This commit is contained in:
parent
6688144a74
commit
10c5447608
|
@ -452,4 +452,4 @@ let main ?(args=[]) ~name f =
|
||||||
| Fatal_error msg ->
|
| Fatal_error msg ->
|
||||||
eprintf "Error: %s\n%!" msg;
|
eprintf "Error: %s\n%!" msg;
|
||||||
exit 1
|
exit 1
|
||||||
| exn -> raise exn
|
| _ -> Exn.reraise exn
|
||||||
|
|
Loading…
Reference in New Issue