diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-01-12 09:15:33 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-01-12 09:15:33 +0000 |
| commit | b4ce30d7e0dc02d7a231dd0bb27c29843f2afb75 (patch) | |
| tree | 0813d2f06f8f018216ea44a0e94e8eaa8b99d31d /guix-build-coordinator | |
| parent | b5d998c22f7d4db3e26166ada9489af363f2d47a (diff) | |
| download | build-coordinator-b4ce30d7e0dc02d7a231dd0bb27c29843f2afb75.tar build-coordinator-b4ce30d7e0dc02d7a231dd0bb27c29843f2afb75.tar.gz | |
Tweak agent queue timings
Wait slightly longer between starting new threads, and give more time for new
jobs to arrive for running threads.
Diffstat (limited to 'guix-build-coordinator')
| -rw-r--r-- | guix-build-coordinator/agent.scm | 2 | ||||
| -rw-r--r-- | guix-build-coordinator/utils.scm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index 8430724..c7e473b 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -164,7 +164,7 @@ (create-work-queue current-max-builds process-job #:thread-start-delay - (make-time time-duration 0 60)))) + (make-time time-duration 0 90)))) (define (display-info) (display (simple-format diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 7dd12b0..fdcefb6 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -692,7 +692,7 @@ References: ~a~%" (if (wait-condition-variable job-available queue-mutex - (+ 6 (time-second (current-time)))) + (+ 9 (time-second (current-time)))) ;; Another thread could have taken the job in the ;; mean time (begin |