Only send 125 jobs at a time to the cluster to avoid stressing it too…

… much
ocurrent · Nov 3, 2020 · 471e789 · 471e789
1 parent f387fca
commit 471e789
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/lib/build.ml b/lib/build.ml
@@ -120,7 +120,10 @@ module Op = struct
 
   module Outcome = Current.String
 
+  let lwt_pool = Lwt_pool.create 125 (fun () -> Lwt.return_unit)
+
   let run { connection; timeout} job { Key.pool; commit; variant; ty } { Value.base; master } =
+    Lwt_pool.use lwt_pool @@ fun () ->
     let master = Current_git.Commit.hash master in
     let build_spec =
       let base = Image.hash base in