Increase the job pool limit to 1000

ocurrent · Dec 17, 2021 · f8cf235 · f8cf235
1 parent 471e789
commit f8cf235
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/build.ml b/lib/build.ml
@@ -120,7 +120,7 @@ module Op = struct
 
   module Outcome = Current.String
 
-  let lwt_pool = Lwt_pool.create 125 (fun () -> Lwt.return_unit)
+  let lwt_pool = Lwt_pool.create 1000 (fun () -> Lwt.return_unit)
 
   let run { connection; timeout} job { Key.pool; commit; variant; ty } { Value.base; master } =
     Lwt_pool.use lwt_pool @@ fun () ->