[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH 4/7] upstream: Use a the first url from urls when find2 returns #
From: |
David Craven |
Subject: |
[PATCH 4/7] upstream: Use a the first url from urls when find2 returns #f. |
Date: |
Wed, 28 Sep 2016 17:15:35 +0200 |
* 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 1815737..ac3f72f 100644
--- a/guix/upstream.scm
+++ b/guix/upstream.scm
@@ -194,7 +194,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.9.0
- [PATCH 1/7] build-system: Add cargo build system., David Craven, 2016/09/28
- [PATCH 3/7] import: crate: Add crate updater., David Craven, 2016/09/28
- [PATCH 7/7] gnu: Add rust-libc., David Craven, 2016/09/28
- [PATCH 4/7] upstream: Use a the first url from urls when find2 returns #f.,
David Craven <=
- [PATCH 6/7] gnu: Add cargo-bootstrap., David Craven, 2016/09/28
- [PATCH 2/7] import: Add importer for rust crates., David Craven, 2016/09/28
- [PATCH 5/7] gnu: Add rustc-bootstrap., David Craven, 2016/09/28
- Re: [PATCH 1/7] build-system: Add cargo build system., Ricardo Wurmus, 2016/09/30