~ruther/guix-local

f607aaaaaafe19257ef09ca519d325df6ae97e05 — Reepca Russelstein 8 months ago 2a33354
download: Handle content-addressed-mirrors returning #f.

* 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 <ludo@gnu.org>
1 files changed, 2 insertions(+), 1 deletions(-)

M guix/build/download.scm
M guix/build/download.scm => guix/build/download.scm +2 -1
@@ 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))