[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH 01/12] upstream: Use a the first url from urls when find2 returns
From: |
David Craven |
Subject: |
[PATCH 01/12] upstream: Use a the first url from urls when find2 returns #f. |
Date: |
Sun, 11 Dec 2016 18:25:26 +0100 |
* guix/upstream.scm (package-update): Use a url from the list when the
find2 procedure doesn't find a url sig-url pair.
---
guix/upstream.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/guix/upstream.scm b/guix/upstream.scm
index 8685afd86..579942672 100644
--- a/guix/upstream.scm
+++ b/guix/upstream.scm
@@ -249,7 +249,7 @@ and 'interactive' (default)."
(string-suffix? archive-type url))
urls
(or signature-urls (circular-list #f)))))
- (let ((tarball (download-tarball store url signature-url
+ (let ((tarball (download-tarball store (if url url (car urls))
signature-url
#:key-download key-download)))
(values version tarball))))
(#f
--
2.11.0