import/cran: download: Accept optional REF argument.
* guix/import/cran.scm (download): Accept REF argument for git downloads.
This commit is contained in:
parent
f8f3cffedc
commit
8c620a6036
1 changed files with 2 additions and 2 deletions
|
|
@ -200,11 +200,11 @@ bioconductor package NAME, or #F if the package is unknown."
|
||||||
;; Little helper to download URLs only once.
|
;; Little helper to download URLs only once.
|
||||||
(define download
|
(define download
|
||||||
(memoize
|
(memoize
|
||||||
(lambda* (url #:key method)
|
(lambda* (url #:key method (ref '()))
|
||||||
(with-store store
|
(with-store store
|
||||||
(cond
|
(cond
|
||||||
((eq? method 'git)
|
((eq? method 'git)
|
||||||
(latest-repository-commit store url))
|
(latest-repository-commit store url #:ref ref))
|
||||||
((eq? method 'hg)
|
((eq? method 'hg)
|
||||||
(call-with-temporary-directory
|
(call-with-temporary-directory
|
||||||
(lambda (dir)
|
(lambda (dir)
|
||||||
|
|
|
||||||
Reference in a new issue