From 67da64608773772f75983415dd90584025ecd523 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 14 Sep 2021 09:54:12 +0200 Subject: download: Remove obsolete workaround. * guix/download.scm (%content-addressed-mirrors): Use (guix base16) unconditionally. --- guix/download.scm | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to 'guix/download.scm') diff --git a/guix/download.scm b/guix/download.scm index d60c898c57..a66cf0cea1 100644 --- a/guix/download.scm +++ b/guix/download.scm @@ -369,7 +369,7 @@ ;; procedure that takes a file name, an algorithm (symbol) and a hash ;; (bytevector), and returns a URL or #f. '(begin - (use-modules (guix base32)) + (use-modules (guix base16) (guix base32)) (define (guix-publish host) (lambda (file algo hash) @@ -379,12 +379,6 @@ file "/" (symbol->string algo) "/" (bytevector->nix-base32-string hash)))) - ;; XXX: (guix base16) appeared in March 2017 (and thus 0.13.0) so old - ;; installations of the daemon might lack it. Thus, load it lazily to - ;; avoid gratuitous errors. See . - (module-autoload! (current-module) - '(guix base16) '(bytevector->base16-string)) - (list (guix-publish "ci.guix.gnu.org") (lambda (file algo hash) ;; 'tarballs.nixos.org' supports several algorithms. -- cgit v1.2.3