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:
Ricardo Wurmus 2019-09-02 14:45:17 +02:00
parent e107ccea84
commit c7358ac4fc
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 10 additions and 6 deletions

View File

@ -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