diff options
author | Christopher Baines <mail@cbaines.net> | 2022-05-15 01:05:40 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2022-05-15 01:05:40 +0100 |
commit | 08dd085d3359cf85c22e81faedbc9c9349f6bac2 (patch) | |
tree | fe4fbf61c823e1362924bcc67626230ba9fac817 /nar-herder/storage.scm | |
parent | 9e0f37cacb67d5592d38086385ef30fd8ab5a3d7 (diff) | |
download | nar-herder-08dd085d3359cf85c22e81faedbc9c9349f6bac2.tar nar-herder-08dd085d3359cf85c22e81faedbc9c9349f6bac2.tar.gz |
Just retry fetching files on the next mirror pass
Diffstat (limited to 'nar-herder/storage.scm')
-rw-r--r-- | nar-herder/storage.scm | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/nar-herder/storage.scm b/nar-herder/storage.scm index 51a089b..7e72910 100644 --- a/nar-herder/storage.scm +++ b/nar-herder/storage.scm @@ -375,11 +375,7 @@ ": " exn) #f) (lambda () - (retry-on-error - (lambda () - (fetch-file (assq-ref file 'url))) - #:times 3 - #:delay 5) + (fetch-file (assq-ref file 'url)) #t) #:unwind? #t))) (loop (if success? @@ -408,11 +404,7 @@ ": " exn) #f) (lambda () - (retry-on-error - (lambda () - (fetch-file (assq-ref file 'url))) - #:times 3 - #:delay 5) + (fetch-file (assq-ref file 'url)) #t) #:unwind? #t)) missing-nar-files))) |