diff options
author | Christopher Baines <mail@cbaines.net> | 2020-12-05 18:22:46 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-12-05 18:22:46 +0000 |
commit | 49c0596c6d5589f0e46268c9b28e7e31932a7964 (patch) | |
tree | 80b86810668da6db70bf58e8cf120536222fc332 /guix-build-coordinator/agent.scm | |
parent | 6bd5571cf16155a7fd3cdf187edaf202246563f0 (diff) | |
download | build-coordinator-49c0596c6d5589f0e46268c9b28e7e31932a7964.tar build-coordinator-49c0596c6d5589f0e46268c9b28e7e31932a7964.tar.gz |
Add some randomisation to substitute delays
Diffstat (limited to 'guix-build-coordinator/agent.scm')
-rw-r--r-- | guix-build-coordinator/agent.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index 004e2e8..7ba7735 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -272,7 +272,7 @@ but the guix-daemon claims it's unavailable") (display (get-output-string log-port)) (close-output-port log-port))))))) #:times 6 - #:delay 60) + #:delay (+ 15 (random 30))) ;; Double check everything is actually present. (let ((missing-files (remove (lambda (path) @@ -352,8 +352,8 @@ but the guix-daemon claims it's unavailable") (substitute-derivation derivation-name #:substitute-urls derivation-substitute-urls)) - #:times 12 - #:delay 20) + #:times 20 + #:delay (+ 5 (random 25))) #t) #:unwind? #t) (read-derivation-from-file derivation-name))))) |