Browse Source

gnu-maintenance: Call 'adjusted-upstream-source' only when there's a source.

This is a followup to 59a47fb678.

* guix/gnu-maintenance.scm (latest-savannah-release): Call
'adjusted-upstream-source' only when 'latest-html-release' returns
true.
(latest-kernel.org-release): Likewise.
gn-latest-20200725
Ludovic Courtès 1 year ago
parent
commit
a022f5a4c1
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
  1. 19
      guix/gnu-maintenance.scm

19
guix/gnu-maintenance.scm

@ -647,10 +647,10 @@ releases are on gnu.org."
(directory (dirname (uri-path uri)))
(rewrite (url-prefix-rewrite %savannah-base
"mirror://savannah")))
(adjusted-upstream-source (latest-html-release package
#:base-url %savannah-base
#:directory directory)
rewrite)))
(and=> (latest-html-release package
#:base-url %savannah-base
#:directory directory)
(cut adjusted-upstream-source <> rewrite))))
(define (latest-xorg-release package)
"Return the latest release of PACKAGE."
@ -677,12 +677,11 @@ releases are on gnu.org."
(directory (dirname (uri-path uri)))
(rewrite (url-prefix-rewrite %kernel.org-base
"mirror://kernel.org")))
(adjusted-upstream-source (latest-html-release package
#:base-url %kernel.org-base
#:directory directory
#:file->signature
file->signature)
rewrite)))
(and=> (latest-html-release package
#:base-url %kernel.org-base
#:directory directory
#:file->signature file->signature)
(cut adjusted-upstream-source <> rewrite))))
(define %gnu-updater
;; This is for everything at ftp.gnu.org.

Loading…
Cancel
Save