~ruther/guix-local

d877dc098bcf1f1b2f39ba5a6e3701eda547d004 — Maxime Devos 3 years ago fc5c4ce 
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>
patch browse .tar.gz .zip 
1 files changed, 4 insertions(+), 2 deletions(-)

M guix/gnu-maintenance.scm

M guix/gnu-maintenance.scm => guix/gnu-maintenance.scm +4 -2
@@ 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))