From ff0d12fb5cbedd09b368815b6bd433104e145454 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 17 May 2020 22:05:48 +0100 Subject: Support agents processing builds in parallel --- guix-build-coordinator/coordinator.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'guix-build-coordinator/coordinator.scm') 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) -- cgit v1.2.3