|
@@ -270,6 +270,7 @@ let run ~version ~build_info () =
|
|
|> run ~version ~build_info
|
|
|> run ~version ~build_info
|
|
in
|
|
in
|
|
|
|
|
|
|
|
+ (* Return error code with exceptions *)
|
|
let exit_code =
|
|
let exit_code =
|
|
match
|
|
match
|
|
hack_parse ()
|
|
hack_parse ()
|
|
@@ -297,6 +298,7 @@ let run ~version ~build_info () =
|
|
(* Display total running time, to float is a number of secconds *)
|
|
(* Display total running time, to float is a number of secconds *)
|
|
Messages.debug Time.(now () |> to_float |> (-.) start |> ( *. ) (-1.)
|
|
Messages.debug Time.(now () |> to_float |> (-.) start |> ( *. ) (-1.)
|
|
|> sprintf "Runned during %f second(s)");
|
|
|> sprintf "Runned during %f second(s)");
|
|
|
|
+
|
|
(* Reset display *)
|
|
(* Reset display *)
|
|
Messages.reset ();
|
|
Messages.reset ();
|
|
|
|
|