upstream: Use first url when it lacks an extension.

* guix/upstream.scm (package-update): Use a url from the list when it
  lacks an extension.
This commit is contained in:
Ludovic Courtès 2016-09-28 16:17:07 +02:00 committed by David Craven
parent ce3f92e701
commit af72a21a69
No known key found for this signature in database
GPG key ID: C5E051C79C0BECDB

View file

@ -241,12 +241,16 @@ (define* (package-update store package updaters
((archive-type)
(match (and=> (package-source package) origin-uri)
((? string? uri)
(or (file-extension uri) "gz"))
(file-extension uri))
(_
"gz")))
((url signature-url)
(find2 (lambda (url sig-url)
(string-suffix? archive-type url))
;; Some URIs lack a file extension, like
;; 'https://crates.io/???/0.1/download'. In that
;; case, pick the first URL.
(or (not archive-type)
(string-suffix? archive-type url)))
urls
(or signature-urls (circular-list #f)))))
(let ((tarball (download-tarball store url signature-url