diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-07-06 18:11:42 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-07-06 18:15:07 +0100 |
| commit | cfd3f8d49aa16772b9b62cc24aff6c1e68b27f63 (patch) | |
| tree | 28c3ea4dc31e265bad6964cf3f8072d803642eb6 /guix-build-coordinator/agent.scm | |
| parent | a02a4542a6946052100862373da37e278e4a6b46 (diff) | |
| download | build-coordinator-cfd3f8d49aa16772b9b62cc24aff6c1e68b27f63.tar build-coordinator-cfd3f8d49aa16772b9b62cc24aff6c1e68b27f63.tar.gz | |
Allow changing the agent parallel uploads
Diffstat (limited to 'guix-build-coordinator/agent.scm')
| -rw-r--r-- | guix-build-coordinator/agent.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index ebd90fb..762a7e7 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -64,6 +64,7 @@ coordinator-interface systems max-parallel-builds + max-parallel-uploads derivation-substitute-urls non-derivation-substitute-urls metrics-file @@ -112,10 +113,8 @@ (write-textfile metrics-registry metrics-file))) - (define parallel-uploads - 1) (define upload-slots - (make-vector parallel-uploads #f)) + (make-vector max-parallel-uploads #f)) (define uploads-mutex (make-mutex)) @@ -385,7 +384,7 @@ (let*-values (((perform-post-build-actions count-post-build-jobs count-post-build-threads list-post-build-jobs) - (create-work-queue parallel-uploads + (create-work-queue max-parallel-uploads (lambda (build thunk) (thunk)) #:name "upload")) |