diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-05-17 22:05:48 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-05-17 22:05:48 +0100 |
| commit | ff0d12fb5cbedd09b368815b6bd433104e145454 (patch) | |
| tree | f5f7154dcc4b9b1d1fcea58b08b2008e68a039e5 /guix-build-coordinator/coordinator.scm | |
| parent | 137d39440e78454cef83dd4be5701290d00e771e (diff) | |
| download | build-coordinator-ff0d12fb5cbedd09b368815b6bd433104e145454.tar build-coordinator-ff0d12fb5cbedd09b368815b6bd433104e145454.tar.gz | |
Support agents processing builds in parallel
Diffstat (limited to 'guix-build-coordinator/coordinator.scm')
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 0eb8bd0..9815565 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -268,7 +268,7 @@ #f)))))))) #t) -(define (fetch-builds build-coordinator agent) +(define (fetch-builds build-coordinator agent count) (call-with-duration-metric (build-coordinator-metrics-registry build-coordinator) "guixbuildcoordinator_coordinator_fetch_builds_duration_seconds" @@ -276,7 +276,7 @@ (let ((builds (datastore-list-allocation-plan-builds (build-coordinator-datastore build-coordinator) agent - 1))) + count))) (unless (null? builds) (datastore-allocate-builds-to-agent (build-coordinator-datastore build-coordinator) |