diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-01-01 19:39:21 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-01-01 19:39:21 +0000 |
| commit | 074b4356ef681ce9ae42bc4b77cdfda95feb8a84 (patch) | |
| tree | a67db071264bdd3434f88a63c7ec3f5f06f88b17 /guix-build-coordinator/agent.scm | |
| parent | 6e7127504a1bfb176817ae778328689b4890163f (diff) | |
| download | build-coordinator-074b4356ef681ce9ae42bc4b77cdfda95feb8a84.tar build-coordinator-074b4356ef681ce9ae42bc4b77cdfda95feb8a84.tar.gz | |
Tune agent retrying
So that the agent spends less time waiting.
Diffstat (limited to 'guix-build-coordinator/agent.scm')
| -rw-r--r-- | guix-build-coordinator/agent.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index 920dcfd..0df6c97 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -273,8 +273,8 @@ build-id log-file #:log (build-log-procedure lgr build-id)))) - #:times 6 - #:delay 30)) + #:times 12 + #:delay 10)) (define (pre-build-process lgr store @@ -316,8 +316,8 @@ unable to query substitute servers without caching")) (has-substiutes-no-cache? non-derivation-substitute-urls file)) - #:times 6 - #:delay (+ 15 (random 30))) + #:times 20 + #:delay (random 15)) #f))) (and (if (eq? substitute-urls-with-substitute #f) @@ -381,8 +381,8 @@ but the guix-daemon claims it's unavailable" (display (get-output-string log-port)) (display (newline)) (close-output-port log-port)))))))) - #:times 6 - #:delay (+ 15 (random 30))) + #:times 12 + #:delay (random 15)) ;; Double check everything is actually present. (let ((missing-files (remove (lambda (path) @@ -466,7 +466,7 @@ but the guix-daemon claims it's unavailable" #:substitute-urls derivation-substitute-urls)) #:times 20 - #:delay (+ 5 (random 25))) + #:delay (random 15)) #t) #:unwind? #t) (read-derivation-from-file derivation-name))))) |