diff mbox

[4/7] upstream: Use a the first url from urls when find2 returns #f.

Message ID 20160928151538.11679-4-david@craven.ch
State New
Headers show

Commit Message

David Craven Sept. 28, 2016, 3:15 p.m. UTC
* 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(-)

Comments

David Craven Sept. 28, 2016, 3:19 p.m. UTC | #1
There is an example now. You can change the version of the rust-libc
package and then run guix refresh -u rust-libc on it.
Ludovic Courtès Oct. 4, 2016, 9:07 a.m. UTC | #2
David Craven <david@craven.ch> skribis:

> There is an example now. You can change the version of the rust-libc
> package and then run guix refresh -u rust-libc on it.

And what happens?  Could it happen with other updaters?

The concern I expressed at
<https://lists.gnu.org/archive/html/guix-devel/2016-09/msg01989.html>
remains.

Thanks,
Ludo’.
diff mbox

Patch

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