From 3cb5ae8577db28b2c6013b9d9ecf99cb696e3432 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Tue, 14 Sep 2021 10:11:42 +0200
Subject: download: Disarchive mirrors can be URL-returning procedures.

As discussed at <https://issues.guix.gnu.org/47336#16>.

* guix/build/download.scm (url-fetch)[disarchive-uris]: Accept MIRROR as
a procedure.
* guix/download.scm (%disarchive-mirrors): Add comment.  This change can
only be made once a 'guix perform-download' that understands procedures
is widely deployed.
---
 guix/download.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'guix/download.scm')

diff --git a/guix/download.scm b/guix/download.scm
index a66cf0cea1..85b97a4766 100644
--- a/guix/download.scm
+++ b/guix/download.scm
@@ -400,6 +400,8 @@
               (object->string %content-addressed-mirrors)))
 
 (define %disarchive-mirrors
+  ;; TODO: Eventually turn into a procedure that takes a hash algorithm
+  ;; (symbol) and hash (bytevector).
   '("https://disarchive.ngyro.com/"))
 
 (define %disarchive-mirror-file
-- 
cgit v1.2.3