ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu-maintenance: Produce mirror:// URIs in latest-ftp-release.

Browse source 
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>
This commit is contained in:
Maxime Devos 2022-09-01 11:01:49 +02:00 committed by Ludovic Courtès
parent fc5c4ce4ec
commit d877dc098b
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
guix/gnu-maintenance.scm
View file

@ -363,10 +363,12 @@ (define (file->source directory file)
(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))