diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2023-09-11 15:01:24 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-09-26 17:36:58 +0200 |
| commit | c4a1d69a6966aea71114c1aba0eab161139ff6fe (patch) | |
| tree | b11602cea6a9cef64d5675c3c6b80a1d04618ff7 | |
| parent | f651a359691cbe4750f1fe8d14dd964f7971f916 (diff) | |
| download | guix-c4a1d69a6966aea71114c1aba0eab161139ff6fe.tar.gz guix-c4a1d69a6966aea71114c1aba0eab161139ff6fe.zip | |
perform-download: Use the ‘git’ command captured at configure time.
* guix/scripts/perform-download.scm (perform-git-download): Pass #:git-command
to ‘git-fetch-with-fallback’.
| -rw-r--r-- | guix/scripts/perform-download.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/scripts/perform-download.scm b/guix/scripts/perform-download.scm index bb1e51aa30..045dd84ad6 100644 --- a/guix/scripts/perform-download.scm +++ b/guix/scripts/perform-download.scm @@ -23,6 +23,7 @@ #: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)) @@ -108,7 +109,8 @@ Note: OUTPUT may differ from the 'out' value of DRV, notably for 'bmCheck' or (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)) |