me
/
guix
Archived
1
0
Fork 0

gnu-maintenance: Simplify latest-savannah-release.

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.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Maxime Devos 2022-09-01 11:01:52 +02:00 committed by Ludovic Courtès
parent 6c16de72de
commit e96f380fd4
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 7 deletions

View File

@ -706,15 +706,12 @@ GNOME packages; EMMS is included though, because its releases are on gnu.org."
((? 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."