From f607aaaaaafe19257ef09ca519d325df6ae97e05 Mon Sep 17 00:00:00 2001 From: Reepca Russelstein Date: Thu, 24 Jul 2025 17:40:31 -0500 Subject: [PATCH] download: Handle content-addressed-mirrors returning #f. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * guix/build/download.scm (url-fetch): don't pass the return value from a content-addressed-mirror procedure to 'string->uri' if it is #f. Change-Id: Ic4f94f86fcfebe6f2e60cb3c4330ce57886ab647 Signed-off-by: Ludovic Courtès --- 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 de8922f6e29a6723f826dc09c09c250994b58f9f..509dcc08c722d846de45ec51116f052b85ebe22f 100644 --- a/guix/build/download.scm +++ b/guix/build/download.scm @@ -783,7 +783,8 @@ otherwise simply ignore them." (filter-map (match-lambda ((hash-algo . hash) (let ((file (strip-store-file-name file))) - (string->uri (make-url file hash-algo hash))))) + (and=> (make-url file hash-algo hash) + string->uri)))) hashes)) content-addressed-mirrors))