download: Pass the raw file name to content-addressed mirrors.

* guix/build/download.scm (url-fetch)[content-addressed-uris]: Call
'strip-store-file-name' on FILE before passing it to 'make-url'.
This commit is contained in:
Ludovic Courtès 2016-07-31 18:25:18 +02:00
parent 42bf34298e
commit 38f1cf8a8e
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -737,7 +737,8 @@ (define content-addressed-uris
(append-map (lambda (make-url)
(filter-map (match-lambda
((hash-algo . hash)
(string->uri (make-url file hash-algo hash))))
(let ((file (strip-store-file-name file)))
(string->uri (make-url file hash-algo hash)))))
hashes))
content-addressed-mirrors))