aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-12-02 12:24:56 +0100
committerLudovic Courtès <ludo@gnu.org>2019-12-02 12:24:56 +0100
commitc2b2c8e9e7ce3e12b23a6d27162dc98450d4f4d9 (patch)
treedcdfbef0a904deea90f49c0d9551ac8509585cb3
parentc07c0acf19e9c705495bf6b9866ab57acef87132 (diff)
downloadguix-c2b2c8e9e7ce3e12b23a6d27162dc98450d4f4d9.tar
guix-c2b2c8e9e7ce3e12b23a6d27162dc98450d4f4d9.tar.gz
lint: archival: Gracefully handle network failures.
* guix/lint.scm (check-archival): Wrap re-throw in 'with-networking-fail-safe'.
-rw-r--r--guix/lint.scm5
1 files changed, 4 insertions, 1 deletions
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))))))))
;;;