simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-07 11:45:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

main: print backtraces properly

Browse source
This commit is contained in:
Simon Cruanes 2019-02-01 21:12:00 -06:00
parent 668bd36311
commit e6de1de949
1 changed files with 11 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
src/main/main.ml
View file

@ -151,22 +151,25 @@ let () = match main() with
exit 1
| exception e ->
let b = Printexc.get_backtrace () in
let exit_ n =
if Printexc.backtrace_status () then (
Format.fprintf Format.std_formatter "%s@." b
);
Pervasives.exit n
in
begin match e with
| Error.Error msg ->
Format.printf "@{<Red>Error@}: %s@." msg;
ignore @@ exit 1
ignore @@ exit_ 1
| Out_of_time ->
Format.printf "Timeout@.";
exit 2
exit_ 2
| Out_of_space ->
Format.printf "Spaceout@.";
exit 3
exit_ 3
| Invalid_argument e ->
Format.printf "invalid argument:\n%s@." e;
exit 127
exit_ 127
| _ -> raise e
end;
if Printexc.backtrace_status () then (
Format.fprintf Format.std_formatter "%s@." b
)
end