[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#57515] [PATCH 5/8] gnu-maintenance: Simplify latest-savannah-releas
From: |
Maxime Devos |
Subject: |
[bug#57515] [PATCH 5/8] gnu-maintenance: Simplify latest-savannah-release. |
Date: |
Thu, 1 Sep 2022 11:01:52 +0200 |
As latest-html-release now produces mirror:// URIs where possible,
the additional post-processing is not necessary anymore.
As a test, try updating 'gash', the mirror:// URI remains.
* gnu-maintenance.scm (latest-savannah-release): Do not call
adjusted-upstream-source on the result.
---
guix/gnu-maintenance.scm | 11 ++++-------
1 file changed, 4 insertions(+), 7 deletions(-)
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 2f09539d5d..853ad91ea0 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -701,15 +701,12 @@ (define (latest-savannah-release package)
((? string? uri) uri)
((uri mirrors ...) uri))))
(package (package-upstream-name package))
- (directory (dirname (uri-path uri)))
- (rewrite (url-prefix-rewrite %savannah-base
- "mirror://savannah")))
+ (directory (dirname (uri-path uri))))
;; Note: We use the default 'file->signature', which adds ".sig", ".asc",
;; or whichever detached signature naming scheme PACKAGE uses.
- (and=> (latest-html-release package
- #:base-url %savannah-base
- #:directory directory)
- (cut adjusted-upstream-source <> rewrite))))
+ (latest-html-release package
+ #:base-url %savannah-base
+ #:directory directory)))
(define (latest-sourceforge-release package)
"Return the latest release of PACKAGE."
--
2.37.2
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [bug#57515] [PATCH 5/8] gnu-maintenance: Simplify latest-savannah-release.,
Maxime Devos <=