[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

02/02: website: Provide https links for URLs.

From: Ludovic Courtès
Subject: 02/02: website: Provide https links for URLs.
Date: Thu, 9 Mar 2017 08:24:39 -0500 (EST)

civodul pushed a commit to branch master
in repository guix-artwork.

commit dcf6e3e1a4d0553b44827b11711a9660013bf8ae
Author: ng0 <address@hidden>
Date:   Sun Mar 5 17:37:58 2017 +0000

    website: Provide https links for URLs. 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 <address@hidden>
 website/www/download.scm | 10 +++++++---
 1 file 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 <address@hidden>
 ;;; Copyright © 2015 Mathieu Lirzin <address@hidden>
+;;; Copyright © 2017 ng0 <address@hidden>
 ;;; Initially written by Luis Felipe López Acevedo <address@hidden>
 ;;; who waives all copyright interest on this file.
@@ -64,22 +65,25 @@ dependencies.")
 (define (ftp-url file)
   (string-append ""; file))
+(define (https-url file)
+  (string-append ""; 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
 (define (guix-files archs)
   (map (lambda (arch)
-         (cons arch (ftp-url (string-append "guix-binary-" 
+         (cons arch (https-url (string-append "guix-binary-" 
                                             "." arch "-linux.tar.xz"))))
 (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)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]