03/16: gnu-maintenance: Savannah/Xorg updaters no longer abort on network errors.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit bc3c89a475bfef0e7485538a9728c23d356de6bf
Author: Ludovic Courtès <l...@gnu.org>
AuthorDate: Sat Nov 23 14:31:36 2024 +0100

    gnu-maintenance: Savannah/Xorg updaters no longer abort on network errors.
    
    Previously these updaters would fail upon networking error, causing the
    whole process to abort:
    
      $ guix refresh coreutils libgcrypt
      guix refresh: error: connect*: Connection refused
    
    * guix/gnu-maintenance.scm (import-release*, import-xorg-release): Wrap
    in ‘false-if-networking-error’.
    
    Change-Id: I8d309bf8662e2d46460585b4a1b7da0a4f2e8907
---
 guix/gnu-maintenance.scm | 25 ++++++++++++++-----------
 1 file changed, 14 insertions(+), 11 deletions(-)

diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index f34dcfc13f..866b960a4a 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -469,10 +469,12 @@ hosted on ftp.gnu.org, or not under that name (this is 
the case for
 \"emacs-auctex\", for instance.)"
   (let-values (((server directory)
                 (ftp-server/directory package)))
-    (false-if-ftp-error (import-release (package-upstream-name package)
-                                        #:version version
-                                        #:server server
-                                        #:directory directory))))
+    (false-if-networking-error
+     (false-if-ftp-error
+      (import-release (package-upstream-name package)
+                      #:version version
+                      #:server server
+                      #:directory directory)))))
 
 
 ;;;
@@ -913,13 +915,14 @@ to fetch a specific version."
   "Return the latest release of PACKAGE.  Optionally include a VERSION string
 to fetch a specific version."
   (let ((uri (string->uri (origin-uri (package-source package)))))
-    (false-if-ftp-error
-     (import-ftp-release
-      (package-name package)
-      #:version version
-      #:server "ftp.freedesktop.org"
-      #:directory
-      (string-append "/pub/xorg/" (dirname (uri-path uri)))))))
+    (false-if-networking-error
+     (false-if-ftp-error
+      (import-ftp-release
+       (package-name package)
+       #:version version
+       #:server "ftp.freedesktop.org"
+       #:directory
+       (string-append "/pub/xorg/" (dirname (uri-path uri))))))))
 
 (define* (import-kernel.org-release package #:key (version #f))
   "Return the latest release of PACKAGE, a Linux kernel package.