summaryrefslogtreecommitdiff
path: root/guix/build
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-07-31 18:25:18 +0200
committerLudovic Courtès <ludo@gnu.org>2016-07-31 18:27:14 +0200
commit38f1cf8a8e9c479f72d49bc126d317f5608c28fe (patch)
treece5422d78f82ac293e4f73afb454e43fcee61e13 /guix/build
parent42bf34298eec19b37e276e49074113f29c494aed (diff)
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'.
Diffstat (limited to 'guix/build')
-rw-r--r--guix/build/download.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/build/download.scm b/guix/build/download.scm
index 307258be92..4259f52b7a 100644
--- a/guix/build/download.scm
+++ b/guix/build/download.scm
@@ -737,7 +737,8 @@ or #f."
(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))