mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 14:07:01 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse 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.
This commit is contained in:
Ludovic Courtès 2020-07-20 23:31:48 +02:00
parent 64066abdb0
commit a022f5a4c1
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
guix/gnu-maintenance.scm
View file

@ -647,10 +647,10 @@ (define (latest-savannah-release package)
(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 @@ (define (file->signature file)
(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.