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

[Mark H. Weaver]

mhw pushed a commit to branch core-updates-2016-08-01
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))