[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#57515] [PATCH 2/8] gnu-maintenance: Produce mirror:// URIs in lates
From: |
Maxime Devos |
Subject: |
[bug#57515] [PATCH 2/8] gnu-maintenance: Produce mirror:// URIs in latest-ftp-release. |
Date: |
Thu, 1 Sep 2022 11:01:49 +0200 |
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.
---
guix/gnu-maintenance.scm | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 51e8fcd815..84fd087319 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -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))
--
2.37.2
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [bug#57515] [PATCH 2/8] gnu-maintenance: Produce mirror:// URIs in latest-ftp-release.,
Maxime Devos <=