diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-06-06 09:27:29 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-06-06 09:28:05 +0100 |
| commit | 356c0840fc501e23e8364d5254093cbe4ebec513 (patch) | |
| tree | eb91fd00b2f04de0479f662af10ddf1f2f4ebb22 | |
| parent | 0b54c590d72f3b27fbb79af39c28f1b0592e65b2 (diff) | |
| download | build-coordinator-356c0840fc501e23e8364d5254093cbe4ebec513.tar build-coordinator-356c0840fc501e23e8364d5254093cbe4ebec513.tar.gz | |
Retry more when substituting derivations
And don't use the no substitutes fallback.
| -rw-r--r-- | guix-build-coordinator/client-communication.scm | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index 46535e4..2ea7ce2 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -484,17 +484,15 @@ 'WARN "exception substituting derivation " derivation-file ": " exn) - - (if (null? (or substitute-urls '())) - ;; Try again - (read-drv/substitute derivation-file) - (read-derivation-through-substitutes - derivation-file - substitute-urls))) + (raise-exception exn)) (lambda () (with-throw-handler #t (lambda () - (read-drv/substitute derivation-file)) + (retry-on-error + (lambda () + (read-drv/substitute derivation-file)) + #:times 5 + #:delay 5)) (lambda args (backtrace)))) #:unwind? #t)) |