From c070d1423fcbdc48e749545ecdf277404ab7d77d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sat, 5 Jan 2019 23:10:04 +0100
Subject: [PATCH] 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(-)

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.