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

This is a followup to 59a47fb67853dd28891376fc970699f11c0f972f.

* guix/gnu-maintenance.scm (latest-savannah-release): Call
'adjusted-upstream-source' only when 'latest-html-release' returns
true.
(latest-kernel.org-release): Likewise.

diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 2a85504..91203f5 100644 (file)
--- a/guix/gnu-maintenance.scm
+++ b/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.