summary refs log tree commit diff
path: root/guix/gnu-maintenance.scm
diff options
context:
space:
mode:
authorMaxime Devos <maximedevos@telenet.be>2022-09-01 11:01:49 +0200
committerLudovic Courtès <ludo@gnu.org>2022-09-26 23:29:36 +0200
commitd877dc098bcf1f1b2f39ba5a6e3701eda547d004 (patch)
tree09a6cd1e72caa0c3615c11c767cda91d738d7201 /guix/gnu-maintenance.scm
parentfc5c4ce4ec2ecf6b7d9e227617777d8dd10b903a (diff)
downloadguix-d877dc098bcf1f1b2f39ba5a6e3701eda547d004.tar.gz
gnu-maintenance: Produce mirror:// URIs in latest-ftp-release.
Partially fixes <https://issues.guix.gnu.org/57477>.

As a test, try updating gnupg.  Before the patch, a ftp:// URL was produced,
now the mirror:// is preserved.

* guix/gnu-maintenance.scm (latest-ftp-release)[file->source]{urls,signature-urls}:
Call uri-mirror-rewrite on the URLs.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'guix/gnu-maintenance.scm')
-rw-r--r--guix/gnu-maintenance.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 20e3bc1cba..b6450994e6 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -363,10 +363,12 @@ return the corresponding signature URL, or #f it signatures are unavailable."
       (upstream-source
        (package project)
        (version (tarball->version file))
-       (urls (list url))
+       ;; uri-mirror-rewrite: Don't turn nice mirror:// URIs into ftp://
+       ;; URLs during "guix refresh -u".
+       (urls (list (uri-mirror-rewrite url)))
        (signature-urls (match (file->signature url)
                          (#f #f)
-                         (sig (list sig)))))))
+                         (sig (list (uri-mirror-rewrite sig))))))))
 
   (let loop ((directory directory)
              (result    #f))