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'.master
parent
42bf34298e
commit
38f1cf8a8e
|
@ -737,7 +737,8 @@ or #f."
|
||||||
(append-map (lambda (make-url)
|
(append-map (lambda (make-url)
|
||||||
(filter-map (match-lambda
|
(filter-map (match-lambda
|
||||||
((hash-algo . hash)
|
((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))
|
hashes))
|
||||||
content-addressed-mirrors))
|
content-addressed-mirrors))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue