From 6023cc74290831c49c4f5a7d9fc055d4493ad055 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 17 Jul 2013 15:32:52 +0200 Subject: gnu: linux-libre: Add alternate URLs. Fixes . Reported by Andreas Enge . * gnu/packages/linux.scm (linux-libre-urls): New procedure. (linux-libre-headers, linux-libre): Use it. --- gnu/packages/linux.scm | 24 ++++++++++++++++++------ 1 file changed, 18 insertions(+), 6 deletions(-) (limited to 'gnu/packages/linux.scm') diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index dde53e9f5d..3a37f572cb 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -42,6 +42,22 @@ ((string-prefix? "arm" arch) "arm") (else arch)))) +(define (linux-libre-urls version) + "Return a list of URLs for Linux-Libre VERSION." + (list (string-append + "http://linux-libre.fsfla.org/pub/linux-libre/releases/" + version "-gnu/linux-libre-" version "-gnu.tar.xz") + + ;; XXX: Work around . + (string-append + "ftp://alpha.gnu.org/gnu/guix/mirror/linux-libre-" + version "-gnu.tar.xz") + + ;; Maybe this URL will become valid eventually. + (string-append + "mirror://gnu/linux-libre/" version "-gnu/linux-libre-" + version "-gnu.tar.xz"))) + (define-public linux-libre-headers (let* ((version* "3.3.8") (build-phase @@ -69,9 +85,7 @@ (version version*) (source (origin (method url-fetch) - (uri (string-append - "http://linux-libre.fsfla.org/pub/linux-libre/releases/3.3.8-gnu/linux-libre-" - version "-gnu.tar.xz")) + (uri (linux-libre-urls version)) (sha256 (base32 "0jkfh0z1s6izvdnc3njm39dhzp1cg8i06jv06izwqz9w9qsprvnl")))) @@ -175,9 +189,7 @@ (version version*) (source (origin (method url-fetch) - (uri (string-append - "http://linux-libre.fsfla.org/pub/linux-libre/releases/3.3.8-gnu/linux-libre-" - version "-gnu.tar.xz")) + (uri (linux-libre-urls version)) (sha256 (base32 "0jkfh0z1s6izvdnc3njm39dhzp1cg8i06jv06izwqz9w9qsprvnl")))) -- cgit 1.4.1