anil.recoil.org / monopam-myspace
My aggregated monorepo of OCaml code, automaintained
0
fork

Configure Feed

Select the types of activity you want to include in your feed.

fibers

Anil Madhavapeddy 1cee9fea 17f06199

+2 -2
+2 -2
monopam/lib/monopam.ml
··· 1284 1284 end 1285 1285 else begin 1286 1286 Log.app (fun m -> m " Pushing monorepo changes to checkouts (parallel)..."); 1287 - Eio.Fiber.List.map ~max_fibers:4 (fun pkg -> 1287 + Eio.Fiber.List.map ~max_fibers:12 (fun pkg -> 1288 1288 let repo_name = Package.repo_name pkg in 1289 1289 Log.info (fun m -> m "Push to checkout: %s" repo_name); 1290 1290 match push_one ~proc ~fs ~config pkg with ··· 1308 1308 else begin 1309 1309 (* Step 3: Fetch phase - clone/fetch from remotes (PARALLEL) *) 1310 1310 Log.app (fun m -> m " Fetching from remotes (parallel)..."); 1311 - let fetch_results = Eio.Fiber.List.map ~max_fibers:4 (fun pkg -> 1311 + let fetch_results = Eio.Fiber.List.map ~max_fibers:3 (fun pkg -> 1312 1312 let repo_name = Package.repo_name pkg in 1313 1313 (* First ensure checkout exists *) 1314 1314 match ensure_checkout_safe ~proc ~fs:fs_t ~config pkg with