03/06: lint: 'refresh' gracefully handles lack of networking access.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 6d6d19322124dcd963e801453ed026620634d0b3
Author: Ludovic Courtès <address@hidden>
Date:   Fri Oct 27 14:27:47 2017 -0700

    lint: 'refresh' gracefully handles lack of networking access.
    
    * guix/scripts/lint.scm (check-for-updates): Wrap
    'package-latest-release*' call in 'with-networking-fail-safe'.
---
 guix/scripts/lint.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index ec6446e..8840b1a 100644
--- a/guix/scripts/lint.scm
+++ b/guix/scripts/lint.scm
@@ -869,7 +869,11 @@ the NIST server non-fatal."
 
 (define (check-for-updates package)
   "Check if there is an update available for PACKAGE."
-  (match (package-latest-release* package (force %updaters))
+  (match (with-networking-fail-safe
+          (format #f (G_ "while retrieving upstream info for '~a'")
+                  (package-name package))
+          #f
+          (package-latest-release* package (force %updaters)))
     ((? upstream-source? source)
      (when (version>? (upstream-source-version source)
                       (package-version package))