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

View file

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