aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2020-05-17 23:19:20 +0100
committerChristopher Baines <mail@cbaines.net>2020-05-17 23:19:20 +0100
commit2f2655ee00920975d96303e0570cc9119823384f (patch)
treeecb90227fd8baee39f96c3ced162f9d89d832775
parent4626ec5da1045aa0b80e2b07c6cf0ef2a5f5f9ee (diff)
downloadbuild-coordinator-2f2655ee00920975d96303e0570cc9119823384f.tar
build-coordinator-2f2655ee00920975d96303e0570cc9119823384f.tar.gz
Reduce the wait before checking for exited processes
-rw-r--r--guix-build-coordinator/agent.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm
index b02b90f..29920b6 100644
--- a/guix-build-coordinator/agent.scm
+++ b/guix-build-coordinator/agent.scm
@@ -77,7 +77,7 @@
(while #t
(unless (wait-on-processes)
- (unless (eq? 0 (sleep 5))
+ (unless (eq? 0 (sleep 1))
(exit 0)))
(let ((current-processes (hash-count (const #t) processes)))
(when (< current-processes max-processes)