Monorepo management for opam overlays
Limit remote push concurrency to 2 in monopam sync
Uses ~max_fibers:2 parameter to Eio.Fiber.List.map to avoid
overwhelming remote git servers when pushing with --remote flag.
Co-Authored-By: Claude Opus 4.5 <noreply@anthropic.com>
+4
-3
+4
-3
lib/monopam.ml
+4
-3
lib/monopam.ml
···
1186
1186
write_readme ~proc ~fs:fs_t ~config all_pkgs;
1187
1187
write_dune_project ~proc ~fs:fs_t ~config all_pkgs;
1188
1188
1189
-
(* Step 7: Remote phase - push to upstream remotes if --remote (PARALLEL) *)
1189
+
(* Step 7: Remote phase - push to upstream remotes if --remote (LIMITED PARALLEL) *)
1190
1190
let remote_errors =
1191
1191
if remote then begin
1192
-
Log.app (fun m -> m " Pushing to upstream remotes (parallel)...");
1193
-
let push_results = Eio.Fiber.List.map (fun pkg ->
1192
+
Log.app (fun m -> m " Pushing to upstream remotes...");
1193
+
(* Limit to 2 concurrent pushes to avoid overwhelming remotes *)
1194
+
let push_results = Eio.Fiber.List.map ~max_fibers:2 (fun pkg ->
1194
1195
let repo_name = Package.repo_name pkg in
1195
1196
match push_remote_safe ~proc ~fs:fs_t ~config pkg with
1196
1197
| Error e -> Error { repo_name; phase = `Push_remote; error = e }