git-download: Use 'invoke'.
* guix/build/git.scm (git-fetch): Use 'invoke' instead of 'system*' for "git submodule update".
This commit is contained in:
parent
18524466bb
commit
c070d1423f
|
@ -63,9 +63,7 @@ recursively. Return #t on success, #f otherwise."
|
||||||
(invoke git-command "checkout" commit)))
|
(invoke git-command "checkout" commit)))
|
||||||
(when recursive?
|
(when recursive?
|
||||||
;; Now is the time to fetch sub-modules.
|
;; Now is the time to fetch sub-modules.
|
||||||
(unless (zero? (system* git-command "submodule" "update"
|
(invoke git-command "submodule" "update" "--init" "--recursive")
|
||||||
"--init" "--recursive"))
|
|
||||||
(error "failed to fetch sub-modules" url))
|
|
||||||
|
|
||||||
;; In sub-modules, '.git' is a flat file, not a directory,
|
;; In sub-modules, '.git' is a flat file, not a directory,
|
||||||
;; so we can use 'find-files' here.
|
;; so we can use 'find-files' here.
|
||||||
|
|
Loading…
Reference in New Issue