diff options
-rw-r--r-- | guix-build-coordinator/coordinator.scm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 6741446..5d4316a 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -1076,11 +1076,13 @@ (let-values (((pool-mutex job-available count-threads list-jobs) (create-thread-pool (lambda () - (length - (datastore-list-unprocessed-hook-events - datastore - event-name - thread-count))) + (max + 1 + (length + (datastore-list-unprocessed-hook-events + datastore + event-name + thread-count)))) (lambda (running-jobs) (let* ((in-progress-ids (map car running-jobs)) |