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

Partially fixes <https://issues.guix.gnu.org/57477>.

I'm not aware of a package using both latest-html-release and mirrors, so it
has not been completely tested.  However, updating "yt-dlp" appears to work
(except for git-fetch not being supported yet).  The expression for the
signature-urls field had to be tweaked to not call uri-mirror-rewrite on #false.

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

Co-authored-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Maxime Devos 2022-09-01 11:01:50 +02:00 committed by Ludovic Courtès
parent d877dc098b
commit 11ec14ff0e
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -538,9 +538,12 @@ (define (url->release url)
(upstream-source
(package package)
(version version)
(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
(list ((or file->signature file->signature/guess) url))))))))
(and=> ((or file->signature file->signature/guess) url)
(lambda (url) (list (uri-mirror-rewrite url))))))))))
(define candidates
(filter-map url->release links))