ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

download: Remove obsolete workaround.

Browse source 
* guix/download.scm (%content-addressed-mirrors): Use (guix base16)
unconditionally.
This commit is contained in:
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 @@ (define %content-addressed-mirrors
;; 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 @@ (define (guix-publish host)
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 <https://bugs.gnu.org/33542>.
(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.