From c070d1423fcbdc48e749545ecdf277404ab7d77d Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sat, 5 Jan 2019 23:10:04 +0100 Subject: git-download: Use 'invoke'. * guix/build/git.scm (git-fetch): Use 'invoke' instead of 'system*' for "git submodule update". --- guix/build/git.scm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'guix/build') 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 @@ (define* (git-fetch url commit directory (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. -- cgit v1.2.3