[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: download: Add berlin.guixsd.org as a content-addressed mirror.
From: |
guix-commits |
Subject: |
02/02: download: Add berlin.guixsd.org as a content-addressed mirror. |
Date: |
Wed, 28 Nov 2018 16:26:30 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit 13bcc6b45fb7564347a55d03fa11b9bd8a96436d
Author: Ludovic Courtès <address@hidden>
Date: Wed Nov 28 22:23:10 2018 +0100
download: Add berlin.guixsd.org as a content-addressed mirror.
* guix/download.scm (%content-addressed-mirrors)[guix-publish]: New
procedure.
Use it for "mirror.hydra.gnu.org" and add "berlin.guixsd.org" too.
---
guix/download.scm | 16 ++++++++++------
1 file changed, 10 insertions(+), 6 deletions(-)
diff --git a/guix/download.scm b/guix/download.scm
index 7aebec4..a7f51b1 100644
--- a/guix/download.scm
+++ b/guix/download.scm
@@ -375,18 +375,22 @@
'(begin
(use-modules (guix base32))
+ (define (guix-publish host)
+ (lambda (file algo hash)
+ ;; Files served by 'guix publish' are accessible under a single
+ ;; hash algorithm.
+ (string-append "https://" host "/file/"
+ 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 (lambda (file algo hash)
- ;; Files served by 'guix publish' are accessible under a single
- ;; hash algorithm.
- (string-append "https://mirror.hydra.gnu.org/file/"
- file "/" (symbol->string algo) "/"
- (bytevector->nix-base32-string hash)))
+ (list (guix-publish "mirror.hydra.gnu.org")
+ (guix-publish "berlin.guixsd.org")
(lambda (file algo hash)
;; 'tarballs.nixos.org' supports several algorithms.
(string-append "https://tarballs.nixos.org/"