diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-01-05 23:10:04 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-01-06 00:22:05 +0100 |
| commit | c070d1423fcbdc48e749545ecdf277404ab7d77d (patch) | |
| tree | 47ea9ae8fb29daa9af9ae75ee2b2015117de7b98 /guix/build/git.scm | |
| parent | 18524466bb25a1926277b1111d15fb378ff7941e (diff) | |
| download | guix-c070d1423fcbdc48e749545ecdf277404ab7d77d.tar guix-c070d1423fcbdc48e749545ecdf277404ab7d77d.tar.gz | |
git-download: Use 'invoke'.
* guix/build/git.scm (git-fetch): Use 'invoke' instead of 'system*' for
"git submodule update".
Diffstat (limited to 'guix/build/git.scm')
| -rw-r--r-- | guix/build/git.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/guix/build/git.scm b/guix/build/git.scm index 5b90033c4d..669e38cd32 100644 --- a/guix/build/git.scm +++ b/guix/build/git.scm @@ -63,9 +63,7 @@ recursively. Return #t on success, #f otherwise." (invoke git-command "checkout" commit))) (when recursive? ;; Now is the time to fetch sub-modules. - (unless (zero? (system* git-command "submodule" "update" - "--init" "--recursive")) - (error "failed to fetch sub-modules" url)) + (invoke git-command "submodule" "update" "--init" "--recursive") ;; In sub-modules, '.git' is a flat file, not a directory, ;; so we can use 'find-files' here. |