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.
This commit is contained in:
parent
a6805ad0b8
commit
a689c85af4
|
@ -578,13 +578,13 @@ (define cran->guix-package
|
||||||
(case repo
|
(case repo
|
||||||
((git)
|
((git)
|
||||||
;; Retry import from Bioconductor
|
;; Retry import from Bioconductor
|
||||||
(cran->guix-package package-name 'bioconductor))
|
(cran->guix-package package-name #:repo 'bioconductor))
|
||||||
((hg)
|
((hg)
|
||||||
;; Retry import from Bioconductor
|
;; Retry import from Bioconductor
|
||||||
(cran->guix-package package-name 'bioconductor))
|
(cran->guix-package package-name #:repo 'bioconductor))
|
||||||
((bioconductor)
|
((bioconductor)
|
||||||
;; Retry import from CRAN
|
;; Retry import from CRAN
|
||||||
(cran->guix-package package-name 'cran))
|
(cran->guix-package package-name #:repo 'cran))
|
||||||
(else (values #f '()))))))))
|
(else (values #f '()))))))))
|
||||||
|
|
||||||
(define* (cran-recursive-import package-name #:key (repo 'cran))
|
(define* (cran-recursive-import package-name #:key (repo 'cran))
|
||||||
|
@ -655,7 +655,7 @@ (define version
|
||||||
(input-changes
|
(input-changes
|
||||||
(changed-inputs
|
(changed-inputs
|
||||||
pkg
|
pkg
|
||||||
(cran->guix-package upstream-name 'bioconductor))))))
|
(cran->guix-package upstream-name #:repo 'bioconductor))))))
|
||||||
|
|
||||||
(define (cran-package? package)
|
(define (cran-package? package)
|
||||||
"Return true if PACKAGE is an R package from CRAN."
|
"Return true if PACKAGE is an R package from CRAN."
|
||||||
|
|
Loading…
Reference in a new issue