From 631f9466cd91708c3b738e3cfb85be9f909cbbd0 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Wed, 15 Dec 2021 00:26:34 +0000
Subject: Add some retrying around requests

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

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

diff --git a/nar-herder/storage.scm b/nar-herder/storage.scm
index 88f19ea..37f63de 100644
--- a/nar-herder/storage.scm
+++ b/nar-herder/storage.scm
@@ -142,7 +142,11 @@
                                   ".narinfo/info"))))
          (call-with-values
              (lambda ()
-               (http-get uri #:decode-body? #f))
+               (retry-on-error
+                (lambda ()
+                  (http-get uri #:decode-body? #f))
+                #:times 3
+                #:delay 5))
            (lambda (response body)
              (and (= (response-code response)
                      200)
@@ -225,9 +229,11 @@
 
       (call-with-values
           (lambda ()
-            (http-get uri
-                      #:decode-body? #f
-                      #:streaming? #t))
+            (retry-on-error
+             (lambda ()
+               (http-get uri
+                         #:decode-body? #f
+                         #:streaming? #t))))
         (lambda (response body)
           (unless (= (response-code response)
                      200)
-- 
cgit v1.2.3