me
/
guix
Archived
1
0
Fork 0
Code

download: Remove obsolete workaround. 

* guix/download.scm (%content-addressed-mirrors): Use (guix base16)
unconditionally.
master
Ludovic Courtès 2021-09-14 09:54:12 +02:00
parent 3858275962
commit 67da646087
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
guix/download.scm
View File

@ -369,7 +369,7 @@
;; procedure that takes a file name, an algorithm (symbol) and a hash ;; procedure that takes a file name, an algorithm (symbol) and a hash
;; (bytevector), and returns a URL or #f. ;; (bytevector), and returns a URL or #f.
'(begin '(begin
(use-modules (guix base32)) (use-modules (guix base16) (guix base32))
(define (guix-publish host) (define (guix-publish host)
(lambda (file algo hash) (lambda (file algo hash)
@ -379,12 +379,6 @@
file "/" (symbol->string algo) "/" file "/" (symbol->string algo) "/"
(bytevector->nix-base32-string hash)))) (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 <https://bugs.gnu.org/33542>.
(module-autoload! (current-module)
'(guix base16) '(bytevector->base16-string))
(list (guix-publish "ci.guix.gnu.org") (list (guix-publish "ci.guix.gnu.org")
(lambda (file algo hash) (lambda (file algo hash)
;; 'tarballs.nixos.org' supports several algorithms. ;; 'tarballs.nixos.org' supports several algorithms.