From 0ca37f3c7dd4877e0e58930426c7d34db14cd740 Mon Sep 17 00:00:00 2001 From: Philip McGrath Date: Fri, 16 Apr 2021 17:11:39 -0400 Subject: gnu: racket: Add aditional mirrors. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/racket.scm (racket-minimal, racket)[source](uri): Lift base urls into a new internal variable, '%installer-mirrors'. Add mirrors at the University of Utah, Northwestern University, the University of Waterloo, and Vrije Universiteit Brussel (Infogroep). Signed-off-by: Ludovic Courtès --- gnu/packages/racket.scm | 34 ++++++++++++++++++++++------------ 1 file changed, 22 insertions(+), 12 deletions(-) diff --git a/gnu/packages/racket.scm b/gnu/packages/racket.scm index 73e00240de..f2bbf28564 100644 --- a/gnu/packages/racket.scm +++ b/gnu/packages/racket.scm @@ -47,6 +47,22 @@ #:use-module (gnu packages tls) #:use-module (gnu packages xorg)) + +(define %installer-mirrors + ;; Source: + ;; https://github.com/racket/racket-lang-org/blob/master/download/data.rkt#L58 + ;; Matthew Flatt says: "note that many are commented out" + ;; INVARIANT: End with a trailing "/"! + '("https://mirror.racket-lang.org/installers/" + "https://www.cs.utah.edu/plt/installers/" + "https://plt.cs.northwestern.edu/racket-mirror/" + "https://mirror.csclub.uwaterloo.ca/racket/racket-installers/" + ;; Universität Tübingen is using a self-signed HTTPS certificate: + "http://mirror.informatik.uni-tuebingen.de/mirror/racket/" + "https://racket.infogroep.be/" + )) + + (define-public racket-minimal (package (name "racket-minimal") @@ -54,12 +70,9 @@ (source (origin (method url-fetch) - (uri (list (string-append "https://mirror.racket-lang.org/installers/" - version "/racket-minimal-src.tgz") - ;; this mirror seems to have broken HTTPS: - (string-append - "http://mirror.informatik.uni-tuebingen.de/mirror/racket/" - version "/racket-minimal-src.tgz"))) + (uri (map (lambda (base) + (string-append base version "/racket-minimal-src.tgz")) + %installer-mirrors)) (sha256 "0mwyffw4gcci8wmzxa3j28h03h0gsz55aard8qrk3lri8r2xyg21") (patches (search-patches "racket-sh-via-rktio.patch")))) @@ -197,12 +210,9 @@ DrRacket IDE, are not included.") (source (origin (inherit (package-source racket-minimal)) - (uri (list (string-append "https://mirror.racket-lang.org/installers/" - version "/racket-src.tgz") - ;; this mirror seems to have broken HTTPS: - (string-append - "http://mirror.informatik.uni-tuebingen.de/mirror/racket/" - version "/racket-src.tgz"))) + (uri (map (lambda (base) + (string-append base version "/racket-src.tgz")) + %installer-mirrors)) (sha256 (base32 "047wpjblfzmf1msz7snrp2c2h0zxyzlmbsqr9bwsyvz3frcg0888")))) -- cgit 1.4.1