From 38f1cf8a8e9c479f72d49bc126d317f5608c28fe Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 31 Jul 2016 18:25:18 +0200 Subject: [PATCH] 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 307258be92..4259f52b7a 100644 --- a/guix/build/download.scm +++ b/guix/build/download.scm @@ -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))