[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: download: Pass the raw file name to content-addressed mirrors.
From: |
Ludovic Courtès |
Subject: |
01/02: download: Pass the raw file name to content-addressed mirrors. |
Date: |
Sun, 31 Jul 2016 16:27:29 +0000 (UTC) |
civodul pushed a commit to branch core-updates
in repository guix.
commit 38f1cf8a8e9c479f72d49bc126d317f5608c28fe
Author: Ludovic Courtès <address@hidden>
Date: Sun Jul 31 18:25:18 2016 +0200
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'.
---
guix/build/download.scm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/guix/build/download.scm b/guix/build/download.scm
index 307258b..4259f52 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))