me
/
guix
Archived
1
0
Fork 0
Code

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
guix/gnu-maintenance.scm
View File

@ -706,15 +706,12 @@ GNOME packages; EMMS is included though, because its releases are on gnu.org."
((? string? uri) uri) ((? string? uri) uri)
((uri mirrors ...) uri)))) ((uri mirrors ...) uri))))
(package (package-upstream-name package)) (package (package-upstream-name package))
(directory (dirname (uri-path uri))) (directory (dirname (uri-path uri))))
(rewrite (url-prefix-rewrite %savannah-base
"mirror://savannah")))
;; Note: We use the default 'file->signature', which adds ".sig", ".asc", ;; Note: We use the default 'file->signature', which adds ".sig", ".asc",
;; or whichever detached signature naming scheme PACKAGE uses. ;; or whichever detached signature naming scheme PACKAGE uses.
(and=> (latest-html-release package (latest-html-release package
#:base-url %savannah-base #:base-url %savannah-base
#:directory directory) #:directory directory)))
(cut adjusted-upstream-source <> rewrite))))
(define (latest-sourceforge-release package) (define (latest-sourceforge-release package)
"Return the latest release of PACKAGE." "Return the latest release of PACKAGE."