me
/
guix
Archived
1
0
Fork 0
Code

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’.
Ludovic Courtès 2023-09-11 15:01:24 +02:00
parent f651a35969
commit c4a1d69a69
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
guix/scripts/perform-download.scm
View File

@ -23,6 +23,7 @@
#:use-module ((guix store) #:select (derivation-path? store-path?)) #:use-module ((guix store) #:select (derivation-path? store-path?))
#:autoload (guix build download) (url-fetch) #:autoload (guix build download) (url-fetch)
#:autoload (guix build git) (git-fetch-with-fallback) #:autoload (guix build git) (git-fetch-with-fallback)
#:autoload (guix config) (%git)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:export (guix-perform-download)) #: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)) (algo (derivation-output-hash-algo drv-output))
(hash (derivation-output-hash drv-output))) (hash (derivation-output-hash drv-output)))
(git-fetch-with-fallback url commit output (git-fetch-with-fallback url commit output
#:recursive? recursive?)))) #:recursive? recursive?
#:git-command %git))))
(define (assert-low-privileges) (define (assert-low-privileges)
(when (zero? (getuid)) (when (zero? (getuid))