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