diff options
-rw-r--r-- | nar-herder/storage.scm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/nar-herder/storage.scm b/nar-herder/storage.scm index 37f63de..ef5ff27 100644 --- a/nar-herder/storage.scm +++ b/nar-herder/storage.scm @@ -229,11 +229,9 @@ (call-with-values (lambda () - (retry-on-error - (lambda () - (http-get uri - #:decode-body? #f - #:streaming? #t)))) + (http-get uri + #:decode-body? #f + #:streaming? #t)) (lambda (response body) (unless (= (response-code response) 200) @@ -266,7 +264,11 @@ (< (+ storage-size file-bytes) storage-limit)) (begin - (fetch-file (assq-ref file 'url)) + (retry-on-error + (lambda () + (fetch-file (assq-ref file 'url))) + #:times 3 + #:delay 5) (loop (+ storage-size file-bytes) (cdr missing-nar-files))) ;; This file won't fit, so try the next one |