From c2b2c8e9e7ce3e12b23a6d27162dc98450d4f4d9 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Mon, 2 Dec 2019 12:24:56 +0100
Subject: lint: archival: Gracefully handle network failures.

* guix/lint.scm (check-archival): Wrap re-throw in 'with-networking-fail-safe'.
---
 guix/lint.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'guix/lint.scm')

diff --git a/guix/lint.scm b/guix/lint.scm
index 629604e0e9..cd2ea571ed 100644
--- a/guix/lint.scm
+++ b/guix/lint.scm
@@ -1122,7 +1122,10 @@ Heritage")
         ((key . args)
          (if (eq? key skip-key)
              '()
-             (apply throw key args)))))))
+             (with-networking-fail-safe
+              (G_ "while connecting to Software Heritage")
+              '()
+              (apply throw key args))))))))
 
 
 ;;;
-- 
cgit v1.2.3