TakeV
/
guix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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’.
This commit is contained in:
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?))
#: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))