Some more logging in exec_command_then_exit

Author: cknitt

jscomp/main/rescript_main.ml

@@ -53,8 +53,13 @@ let failed_annon ~rev_args =
 
 (**  Invariant: it has to be the last command of [bsb] *)
 let exec_command_then_exit (type t) (command : string) : t =
+  print_endline "exec_command_then_exit";
+  print_endline command;
   Bsb_log.info "@{<info>CMD:@} %s@." command;
-  exit (Sys.command command)
+  print_endline "exec_command_then_exit 2";
+  let ret = Sys.command command in
+  print_endline "exec_command_then_exit 3";
+  exit ret
 
 (* Execute the underlying ninja build call, then exit (as opposed to keep watching) *)
 let ninja_command_exit (type t) (ninja_args : string array) : t =

lib/4.06.1/rescript.ml

@@ -15185,8 +15185,13 @@ let failed_annon ~rev_args =
 
 (**  Invariant: it has to be the last command of [bsb] *)
 let exec_command_then_exit (type t) (command : string) : t =
+  print_endline "exec_command_then_exit";
+  print_endline command;
   Bsb_log.info "@{<info>CMD:@} %s@." command;
-  exit (Sys.command command)
+  print_endline "exec_command_then_exit 2";
+  let ret = Sys.command command in
+  print_endline "exec_command_then_exit 3";
+  exit ret
 
 (* Execute the underlying ninja build call, then exit (as opposed to keep watching) *)
 let ninja_command_exit (type t) (ninja_args : string array) : t =