branch: main
commit 19c09d53395bf50810fce679e07187304b9f9a8c
Author: Ludovic Courtès <[email protected]>
AuthorDate: Fri Jul 26 00:41:12 2024 +0200
store: ‘ensure-path/retry’ times out more quickly.
* src/cuirass/store.scm (ensure-path/retry): Halve the extra delay at
each iteration, going from ~33m to ~21m total.
---
src/cuirass/store.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/cuirass/store.scm b/src/cuirass/store.scm
index 86d3e82..86e0fdf 100644
--- a/src/cuirass/store.scm
+++ b/src/cuirass/store.scm
@@ -174,7 +174,7 @@ substituting it as necessary. Retry up to MAX-RETRIES
times upon
(let loop ((iterations 0))
(or (available-item? item)
(if (< iterations max-retries)
- (let ((delay (+ 60 (* iterations 30))))
+ (let ((delay (+ 60 (* iterations 15))))
;; 'guix substitute' maintains a narinfo cache, with a default
;; TTL of 10mn for negative lookups.
(log-info "retrying substitution of ~a in ~as"
