aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2021-06-19 12:05:11 +0100
committerChristopher Baines <mail@cbaines.net>2021-06-19 12:05:11 +0100
commita73dc15f4cb081462f15f0eb31618ce3d1d556e8 (patch)
tree290b93ac98a6aa29e0b72712dea59ca32c57e158
parent870a0c6075c7c7b70a3c60210ea44353b3f2637b (diff)
downloadbuild-coordinator-a73dc15f4cb081462f15f0eb31618ce3d1d556e8.tar
build-coordinator-a73dc15f4cb081462f15f0eb31618ce3d1d556e8.tar.gz
agent: Tweak the number of builds to fetch.
Include the jobs from the post build queue too, since they'll still be allocated.
-rw-r--r--guix-build-coordinator/agent.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm
index 7aee091..6fe3e71 100644
--- a/guix-build-coordinator/agent.scm
+++ b/guix-build-coordinator/agent.scm
@@ -393,8 +393,8 @@
(fetched-builds
(fetch-builds-for-agent coordinator-interface
systems
- (min (max current-threads 1)
- (+ 1 job-count))
+ (+ (max current-threads 1)
+ (count-post-build-jobs))
#:log (build-log-procedure lgr)))
(new-builds
(remove (lambda (build)