diff options
| author | ng0 <contact.ng0@cryptolab.net> | 2017-03-05 17:37:58 +0000 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-03-09 14:20:40 +0100 |
| commit | dcf6e3e1a4d0553b44827b11711a9660013bf8ae (patch) | |
| tree | 620ffe8af30b9f0d56c6338ec0410449840d4175 | |
| parent | 3f6bff6ca30d062fd421cc7806b34e3ea4da12db (diff) | |
| download | guix-artwork-dcf6e3e1a4d0553b44827b11711a9660013bf8ae.tar guix-artwork-dcf6e3e1a4d0553b44827b11711a9660013bf8ae.tar.gz | |
website: Provide https links for alpha.gnu.org URLs.
alpha.gnu.org is accessible via HTTPS, defaulting to FTP protocol
prevents users of networks where the FTP ports might be blocked (such as
Tor) from downloading.
* website/www/download.scm (https-url): New variable.
(guixsd-files): Replace (ftp-url) with (https-url).
(guix-files): Likewise.
(guix-source-files): Likewise.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
| -rw-r--r-- | website/www/download.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/website/www/download.scm b/website/www/download.scm index db51516..887c6db 100644 --- a/website/www/download.scm +++ b/website/www/download.scm @@ -1,6 +1,7 @@ ;;; GuixSD website --- GNU's advanced distro website ;;; Copyright © 2015, 2016 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015 Mathieu Lirzin <mthl@openmailbox.org> +;;; Copyright © 2017 ng0 <contact.ng0@cryptolab.net> ;;; Initially written by Luis Felipe López Acevedo <felipe.lopez@openmailbox.org> ;;; who waives all copyright interest on this file. ;;; @@ -64,22 +65,25 @@ dependencies.") (define (ftp-url file) (string-append "ftp://alpha.gnu.org/gnu/guix/" file)) +(define (https-url file) + (string-append "https://alpha.gnu.org/gnu/guix/" file)) + (define (guixsd-files archs) (map (lambda (arch) - (cons arch (ftp-url (string-append "guixsd-usb-install-" + (cons arch (https-url (string-append "guixsd-usb-install-" (latest-guix-version) "." arch "-linux.xz")))) archs)) (define (guix-files archs) (map (lambda (arch) - (cons arch (ftp-url (string-append "guix-binary-" (latest-guix-version) + (cons arch (https-url (string-append "guix-binary-" (latest-guix-version) "." arch "-linux.tar.xz")))) archs)) (define (guix-source-files variants) (map (lambda (variant) - (cons variant (ftp-url (string-append "guix-" (latest-guix-version) + (cons variant (https-url (string-append "guix-" (latest-guix-version) ".tar.gz")))) variants)) |