mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-27 23:02:16 -05:00
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
1 changed files with 10 additions and 6 deletions
|
@ -494,12 +494,16 @@ (define cran->guix-package
|
|||
"Fetch the metadata for PACKAGE-NAME from REPO and return the `package'
|
||||
s-expression corresponding to that package, or #f on failure."
|
||||
(let ((description (fetch-description repo package-name)))
|
||||
(if (and (not description)
|
||||
(eq? repo 'bioconductor))
|
||||
;; Retry import from CRAN
|
||||
(cran->guix-package package-name 'cran)
|
||||
(and description
|
||||
(description->package repo description)))))))
|
||||
(if description
|
||||
(description->package repo description)
|
||||
(case repo
|
||||
((git)
|
||||
;; Retry import from Bioconductor
|
||||
(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))
|
||||
(recursive-import package-name repo
|
||||
|
|
Loading…
Reference in a new issue