[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#65866] [PATCH 6/8] perform-git-download: Use the ‘git’ command capt
From: |
Ludovic Courtès |
Subject: |
[bug#65866] [PATCH 6/8] perform-git-download: Use the ‘git’ command captured at configure time. |
Date: |
Mon, 11 Sep 2023 16:25:24 +0200 |
* guix/scripts/perform-download.scm (perform-git-download): Pass #:git-command
to ‘git-fetch-with-fallback’.
---
guix/scripts/perform-download.scm | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/guix/scripts/perform-download.scm
b/guix/scripts/perform-download.scm
index a287e97528..e1c584fbda 100644
--- a/guix/scripts/perform-download.scm
+++ b/guix/scripts/perform-download.scm
@@ -23,6 +23,7 @@ (define-module (guix scripts perform-download)
#:use-module ((guix store) #:select (derivation-path? store-path?))
#:autoload (guix build download) (url-fetch)
#:autoload (guix build git) (git-fetch-with-fallback)
+ #:autoload (guix config) (%git)
#:use-module (ice-9 match)
#:export (guix-perform-download))
@@ -114,7 +115,8 @@ (define* (perform-git-download drv #:optional output
(algo (derivation-output-hash-algo drv-output))
(hash (derivation-output-hash drv-output)))
(git-fetch-with-fallback url commit output
- #:recursive? recursive?))))
+ #:recursive? recursive?
+ #:git-command %git))))
(define (assert-low-privileges)
(when (zero? (getuid))
--
2.41.0