diff options
| author | Philip McGrath <philip@philipmcgrath.com> | 2021-04-16 17:11:39 -0400 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-05-05 16:56:45 +0200 |
| commit | 0ca37f3c7dd4877e0e58930426c7d34db14cd740 (patch) | |
| tree | a724910a2327e341222092979a35a1c0e279876f | |
| parent | 93867cb3beff479e6dd4fd2d0199ddc3508efeab (diff) | |
| download | guix-0ca37f3c7dd4877e0e58930426c7d34db14cd740.tar.gz | |
gnu: racket: Add aditional mirrors.
* 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 <ludo@gnu.org>
| -rw-r--r-- | gnu/packages/racket.scm | 34 |
1 files 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")))) |