[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: git-download: Print a message when falling back to a full fetch.
From: |
Maxim Cournoyer |
Subject: |
01/01: git-download: Print a message when falling back to a full fetch. |
Date: |
Sun, 28 Oct 2018 22:35:53 -0400 (EDT) |
apteryx pushed a commit to branch master
in repository guix.
commit 2f18b7329d9260cbada8cdec081765adfa82a5f4
Author: Maxim Cournoyer <address@hidden>
Date: Wed Oct 24 08:49:50 2018 -0400
git-download: Print a message when falling back to a full fetch.
Otherwise the user might believe that git-fetch stalled, observing the lack
of
output following a 'fatal' git error message (see:
https://debbugs.gnu.org/33100).
* guix/build/git.scm (git-fetch): Print message when falling back to a full
fetch.
---
guix/build/git.scm | 2 ++
1 file changed, 2 insertions(+)
diff --git a/guix/build/git.scm b/guix/build/git.scm
index 14d415a..2d1700a 100644
--- a/guix/build/git.scm
+++ b/guix/build/git.scm
@@ -45,6 +45,8 @@ recursively. Return #t on success, #f otherwise."
(if (zero? (system* git-command "fetch" "--depth" "1" "origin" commit))
(invoke git-command "checkout" "FETCH_HEAD")
(begin
+ (setvbuf (current-output-port) 'line)
+ (format #t "Failed to do a shallow fetch; retrying a full
fetch...~%")
(invoke git-command "fetch" "origin")
(invoke git-command "checkout" commit)))
(when recursive?