diff options
| -rw-r--r-- | guix/scripts/package.scm | 33 |
1 files changed, 21 insertions, 12 deletions
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm index 61b2f0570d..dd7d6ca112 100644 --- a/guix/scripts/package.scm +++ b/guix/scripts/package.scm @@ -285,19 +285,28 @@ matching packages." "Check whether PACKAGE has a newer version available upstream, and report it." ;; TODO: Automatically inject the upstream version when desired. - (when (gnu-package? package) - (let ((name (package-name package)) - (full-name (package-full-name package))) - (match (waiting (latest-release name) - (_ "looking for the latest release of GNU ~a...") name) - ((latest-version . _) - (when (version>? latest-version full-name) - (format (current-error-port) - (_ "~a: note: using ~a \ + + (catch #t + (lambda () + (when (gnu-package? package) + (let ((name (package-name package)) + (full-name (package-full-name package))) + (match (waiting (latest-release name) + (_ "looking for the latest release of GNU ~a...") name) + ((latest-version . _) + (when (version>? latest-version full-name) + (format (current-error-port) + (_ "~a: note: using ~a \ but ~a is available upstream~%") - (location->string (package-location package)) - full-name latest-version))) - (_ #t))))) + (location->string (package-location package)) + full-name latest-version))) + (_ #t))))) + (lambda (key . args) + ;; Silently ignore networking errors rather than preventing + ;; installation. + (case key + ((getaddrinfo-error ftp-error) #f) + (else (apply throw key args)))))) ;;; |