From c45047a2580803fff42a9d2b1afc6d1ee2e793e0 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Wed, 15 Dec 2021 00:51:30 +0000
Subject: Move retry for fetching files to a better place

---
 nar-herder/storage.scm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

(limited to 'nar-herder/storage.scm')

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
-- 
cgit v1.2.3