~ruther/guix-local

e96f380fd42963fb08ccbd67e752470d4f42f223 — Maxime Devos 3 years ago 6c16de7 
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>
patch browse .tar.gz .zip 
1 files changed, 4 insertions(+), 7 deletions(-)

M guix/gnu-maintenance.scm

M guix/gnu-maintenance.scm => guix/gnu-maintenance.scm +4 -7
@@ 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."