lint: archival: Gracefully handle network failures.

* guix/lint.scm (check-archival): Wrap re-throw in 'with-networking-fail-safe'.
2019-12-02 12:24:56 +01:00 · 2019-12-02 12:24:56 +01:00 · c2b2c8e9e7
commit c2b2c8e9e7
parent c07c0acf19
1 changed files with 4 additions and 1 deletions
--- 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))))))))


 ;;;