ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 22:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: racket: Add aditional mirrors.

Browse source 
* 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>
This commit is contained in:
Philip McGrath 2021-04-16 17:11:39 -04:00 committed by Ludovic Courtès
parent 93867cb3be
commit 0ca37f3c7d
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 22 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
gnu/packages/racket.scm
View file

@ -47,6 +47,22 @@ (define-module (gnu packages racket)
#: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 @@ (define-public racket-minimal
(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 @@ (define-public racket
(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"))))