02/02: download: Add berlin.guixsd.org as a content-addressed mirror.

[guix-commits]

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/";