aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-11-15 13:07:57 +0000
committerChristopher Baines <mail@cbaines.net>2023-11-15 13:07:57 +0000
commit65a178695938daff138a30293b3b7d28427a8791 (patch)
treeb8846086381548b71b1767dafa9a6410220b6962
parent4eefc28cd3194ae8d607ba939d4b9735bb4bda61 (diff)
downloadbuild-coordinator-65a178695938daff138a30293b3b7d28427a8791.tar
build-coordinator-65a178695938daff138a30293b3b7d28427a8791.tar.gz
Call wait-condition-variable with longer timeouts
The hook processing threads seem to be getting stuck in wait-condition-variable where the timeout is in the past. Maybe setting a longer timeout will help avoid this.
-rw-r--r--guix-build-coordinator/utils.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm
index dd27012..fdd7ee3 100644
--- a/guix-build-coordinator/utils.scm
+++ b/guix-build-coordinator/utils.scm
@@ -1150,7 +1150,7 @@ References: ~a~%"
(if (wait-condition-variable
job-available
pool-mutex
- (+ 9 (time-second (current-time))))
+ (+ 60 (time-second (current-time))))
(get-job running-jobs)
#f))))
(if job-args
@@ -1228,7 +1228,7 @@ References: ~a~%"
(wait-condition-variable
job-available
pool-mutex
- (+ 15 (time-second (current-time)))))
+ (+ 60 (time-second (current-time)))))
#:unwind? #t))))
(start-new-threads-if-necessary (get-thread-count)))