From 87e73e02202fe5e342d68f1fb17efdd4425737cd Mon Sep 17 00:00:00 2001 From: zimoun Date: Tue, 3 Mar 2020 16:53:39 +0100 Subject: [PATCH] build-system: r: Use Bioconductor old releases to fallback. * guix/build-system/r.scm (bioconductor-uri): Extend the fallback list. --- guix/build-system/r.scm | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/guix/build-system/r.scm b/guix/build-system/r.scm index 2d328764b0..8638e1b888 100644 --- a/guix/build-system/r.scm +++ b/guix/build-system/r.scm @@ -54,15 +54,18 @@ release corresponding to NAME and VERSION." ('annotation "/data/annotation") ('experiment "/data/experiment") (_ "/bioc")))) - (list (string-append "https://bioconductor.org/packages/release" - type-url-part - "/src/contrib/" - name "_" version ".tar.gz") - ;; TODO: use %bioconductor-version from (guix import cran) - (string-append "https://bioconductor.org/packages/3.10" - type-url-part - "/src/contrib/Archive/" - name "_" version ".tar.gz")))) + (append (list (string-append "https://bioconductor.org/packages/release" + type-url-part + "/src/contrib/" + name "_" version ".tar.gz")) + (map (lambda (release) + (string-append "https://bioconductor.org/packages/" + release + type-url-part + "/src/contrib/" + name "_" version ".tar.gz")) + (list (@@ (guix import cran) %bioconductor-version) + "3.9" "3.8" "3.7"))))) (define %r-build-system-modules ;; Build-side modules imported by default. -- 2.25.0