ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 06:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

upstream: Use first url when it lacks an extension.

Browse source 
* 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
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
guix/upstream.scm
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