parallel: exit child with non-zero code on failure

ahrefs · Oct 20, 2024 · dd681b2 · dd681b2
1 parent 4a65100
commit dd681b2
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/parallel.ml b/parallel.ml
@@ -249,8 +249,13 @@ let run_forks_simple ?(revive=false) ?wait_stop f args =
   let launch f x =
     match Nix.fork () with
     | `Child ->
-      let () = try f x with exn -> log #error ~exn ~backtrace:true "worker failed" in
-      exit 0
+      begin try
+        f x;
+        exit 0
+      with exn ->
+        log #error ~exn ~backtrace:true "worker failed";
+        exit 1
+      end
     | `Forked pid -> Hashtbl.add workers pid x; pid
   in
   args |> List.iter (fun x -> let (_:int) = launch f x in ());