diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-05-17 21:07:03 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-05-17 21:07:03 +0100 |
| commit | 137d39440e78454cef83dd4be5701290d00e771e (patch) | |
| tree | 33f88637bb10b6864b125442118b654b7ed69c37 /guix-build-coordinator/agent.scm | |
| parent | a6eabc572445869e0494a2b9962407352bb86c1d (diff) | |
| download | build-coordinator-137d39440e78454cef83dd4be5701290d00e771e.tar build-coordinator-137d39440e78454cef83dd4be5701290d00e771e.tar.gz | |
Retry fetching substitutes for builds
In case of failures.
Diffstat (limited to 'guix-build-coordinator/agent.scm')
| -rw-r--r-- | guix-build-coordinator/agent.scm | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index 4685863..65f2400 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -123,13 +123,17 @@ missing-paths path-substitutes) (begin - ;; Download the substitutes - (with-store store - (set-build-options store - #:substitute-urls - non-derivation-substitute-urls) - - (build-things store missing-paths)) + (retry-on-error + (lambda () + ;; Download the substitutes + (with-store store + (set-build-options store + #:substitute-urls + non-derivation-substitute-urls) + + (build-things store missing-paths))) + #:times 6 + #:delay 60) ;; Double check everything is actually present. (let ((missing-files (remove file-exists? output-paths))) |