import: cran: Retry failed git imports on Bioconductor.
* guix/import/cran.scm (cran->guix-package): Retry failed git imports on Bioconductor.
This commit is contained in:
parent
e107ccea84
commit
c7358ac4fc
|
@ -494,12 +494,16 @@ from the alist META, which was derived from the R package's DESCRIPTION file."
|
||||||
"Fetch the metadata for PACKAGE-NAME from REPO and return the `package'
|
"Fetch the metadata for PACKAGE-NAME from REPO and return the `package'
|
||||||
s-expression corresponding to that package, or #f on failure."
|
s-expression corresponding to that package, or #f on failure."
|
||||||
(let ((description (fetch-description repo package-name)))
|
(let ((description (fetch-description repo package-name)))
|
||||||
(if (and (not description)
|
(if description
|
||||||
(eq? repo 'bioconductor))
|
(description->package repo description)
|
||||||
;; Retry import from CRAN
|
(case repo
|
||||||
(cran->guix-package package-name 'cran)
|
((git)
|
||||||
(and description
|
;; Retry import from Bioconductor
|
||||||
(description->package repo description)))))))
|
(cran->guix-package package-name 'bioconductor))
|
||||||
|
((bioconductor)
|
||||||
|
;; Retry import from CRAN
|
||||||
|
(cran->guix-package package-name 'cran))
|
||||||
|
(else #f)))))))
|
||||||
|
|
||||||
(define* (cran-recursive-import package-name #:optional (repo 'cran))
|
(define* (cran-recursive-import package-name #:optional (repo 'cran))
|
||||||
(recursive-import package-name repo
|
(recursive-import package-name repo
|
||||||
|
|
Loading…
Reference in New Issue