From dcf6e3e1a4d0553b44827b11711a9660013bf8ae Mon Sep 17 00:00:00 2001 From: ng0 Date: Sun, 5 Mar 2017 17:37:58 +0000 Subject: website: Provide https links for alpha.gnu.org URLs. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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 --- website/www/download.scm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'website') 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 ;;; Copyright © 2015 Mathieu Lirzin +;;; Copyright © 2017 ng0 ;;; Initially written by Luis Felipe López Acevedo ;;; 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)) -- cgit v1.2.3