55/63: download: Add mirror.hydra.gnu.org as a content-addressed mirror.

[Mark H. Weaver]

mhw pushed a commit to branch core-updates-2016-08-01
in repository guix.

commit 40f788b9f6184436d9cc36a4dd8e7d101cd2f0ba
Author: Ludovic Courtès <address@hidden>
Date:   Sun Jul 31 18:26:29 2016 +0200

    download: Add mirror.hydra.gnu.org as a content-addressed mirror.
    
    * guix/download.scm (%content-addressed-mirrors): Add
    'mirror.hydra.gnu.org'.
---
 guix/download.scm |    7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/guix/download.scm b/guix/download.scm
index 73c0e89..b2dcdc8 100644
--- a/guix/download.scm
+++ b/guix/download.scm
@@ -236,8 +236,15 @@
   ;; List of content-addressed mirrors.  Each mirror is represented as a
   ;; procedure that takes a file name, an algorithm (symbol) and a hash
   ;; (bytevector), and returns a URL or #f.
+  ;; Note: Avoid 'https' to mitigate <http://bugs.gnu.org/22774>.
   ;; TODO: Add more.
   '(list (lambda (file algo hash)
+           ;; Files served by 'guix publish' are accessible under a single
+           ;; hash algorithm.
+           (string-append "http://mirror.hydra.gnu.org/file/";
+                          file "/" (symbol->string algo) "/"
+                          (bytevector->nix-base32-string hash)))
+         (lambda (file algo hash)
            ;; 'tarballs.nixos.org' supports several algorithms.
            (string-append "http://tarballs.nixos.org/";
                           (symbol->string algo) "/"