646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
14 lines
470 B
Diff
14 lines
470 B
Diff
diff --git a/bin/fiber/fiber.ml b/bin/fiber/fiber.ml
|
|
index 188a92cc9..6087a8687 100644
|
|
--- a/bin/fiber/fiber.ml
|
|
+++ b/bin/fiber/fiber.ml
|
|
@@ -129,7 +129,7 @@ let worker pool =
|
|
|
|
let get_concurrency () =
|
|
try
|
|
- let ic = Unix.open_process_in "getconf _NPROCESSORS_ONLN" in
|
|
+ let ic = Unix.open_process_in "@getconf@/bin/getconf _NPROCESSORS_ONLN" in
|
|
let close () = ignore (Unix.close_process_in ic) in
|
|
let sc = Scanf.Scanning.from_channel ic in
|
|
try
|