This is an automated email from the git hooks/post-receive script.

guix_mirror_bot pushed a commit to branch r-team
in repository guix.

The following commit(s) were added to refs/heads/r-team by this push:
     new 3a06a2061f build-system/r: Use %BIOCONDUCTOR-VERSION.
3a06a2061f is described below

commit 3a06a2061f6c3f6c9a7f528dcd96f99c1fb57588
Author: Kyle Andrews <[email protected]>
AuthorDate: Wed Jul 24 23:13:46 2019 -0400

    build-system/r: Use %BIOCONDUCTOR-VERSION.
    
    * guix/build-system/r.scm (bioconductor-uri): Accept optional RELEASE
    argument, defaulting to %BIOCONDUCTOR-VERSION from (guix import cran).
    
    Change-Id: I5949cd5c01120a2cdeccb522c2d7b2ebb64cb362
---
 guix/build-system/r.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/guix/build-system/r.scm b/guix/build-system/r.scm
index a851b03175..f5d18137b9 100644
--- a/guix/build-system/r.scm
+++ b/guix/build-system/r.scm
@@ -26,6 +26,7 @@
   #:use-module (guix search-paths)
   #:use-module (guix build-system)
   #:use-module (guix build-system gnu)
+  #:use-module ((guix import cran) #:select (%bioconductor-version))
   #:use-module (ice-9 match)
   #:export (%r-build-system-modules
             r-build
@@ -48,7 +49,8 @@ available via the first URI, the second URI points to the 
archived version."
         (string-append "mirror://cran/src/contrib/Archive/"
                        name "/" name "_" version ".tar.gz")))
 
-(define* (bioconductor-uri name version #:optional type)
+(define* (bioconductor-uri name version #:optional type
+                           (release %bioconductor-version))
   "Return a URI string for the R package archive on Bioconductor for the
 release corresponding to NAME and VERSION."
   (let ((type-url-part (match type
@@ -59,8 +61,7 @@ release corresponding to NAME and VERSION."
                          type-url-part
                          "/src/contrib/"
                          name "_" version ".tar.gz")
-          ;; TODO: use %bioconductor-version from (guix import cran)
-          (string-append "https://bioconductor.org/packages/3.22";
+          (string-append "https://bioconductor.org/packages/"; release
                          type-url-part
                          "/src/contrib/"
                          name "_" version ".tar.gz"))))

Reply via email to