summary refs log tree commit diff
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2020-12-04 12:27:29 +0100
committerRicardo Wurmus <rekado@elephly.net>2020-12-04 12:27:29 +0100
commita689c85af4752b3fc466489e06d49ccab5f37de1 (patch)
tree83bcf329799ead7fb6c130c9002249b8fcdc563c
parenta6805ad0b8e3f4f4f3e06cec32ffb0e6db16aec9 (diff)
downloadguix-a689c85af4752b3fc466489e06d49ccab5f37de1.tar.gz
import/cran: Fix calls to CRAN->GUIX-PACKAGE.
* guix/import/cran.scm (cran->guix-package, latest-bioconductor-release):
Invoke CRAN->GUIX-PACKAGE with #:REPO keyword argument.
-rw-r--r--guix/import/cran.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/guix/import/cran.scm b/guix/import/cran.scm
index d8240a6b2f..d6baa6b5e5 100644
--- a/guix/import/cran.scm
+++ b/guix/import/cran.scm
@@ -578,13 +578,13 @@ s-expression corresponding to that package, or #f on failure."
            (case repo
              ((git)
               ;; Retry import from Bioconductor
-              (cran->guix-package package-name 'bioconductor))
+              (cran->guix-package package-name #:repo 'bioconductor))
              ((hg)
               ;; Retry import from Bioconductor
-              (cran->guix-package package-name 'bioconductor))
+              (cran->guix-package package-name #:repo 'bioconductor))
              ((bioconductor)
               ;; Retry import from CRAN
-              (cran->guix-package package-name 'cran))
+              (cran->guix-package package-name #:repo 'cran))
              (else (values #f '()))))))))
 
 (define* (cran-recursive-import package-name #:key (repo 'cran))
@@ -655,7 +655,7 @@ s-expression corresponding to that package, or #f on failure."
         (input-changes
          (changed-inputs
           pkg
-          (cran->guix-package upstream-name 'bioconductor))))))
+          (cran->guix-package upstream-name #:repo 'bioconductor))))))
 
 (define (cran-package? package)
   "Return true if PACKAGE is an R package from CRAN."