From 8c620a60367e26b30dae22988e2ddc972b64234d Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Fri, 12 Aug 2022 18:59:11 +0200
Subject: import/cran: download: Accept optional REF argument.

* guix/import/cran.scm (download): Accept REF argument for git downloads.
---
 guix/import/cran.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'guix/import')

diff --git a/guix/import/cran.scm b/guix/import/cran.scm
index 4e1ce7c010..69d01b5f7c 100644
--- a/guix/import/cran.scm
+++ b/guix/import/cran.scm
@@ -200,11 +200,11 @@ bioconductor package NAME, or #F if the package is unknown."
 ;; Little helper to download URLs only once.
 (define download
   (memoize
-   (lambda* (url #:key method)
+   (lambda* (url #:key method (ref '()))
      (with-store store
        (cond
         ((eq? method 'git)
-         (latest-repository-commit store url))
+         (latest-repository-commit store url #:ref ref))
         ((eq? method 'hg)
          (call-with-temporary-directory
           (lambda (dir)
-- 
cgit v1.2.3