10/11: substitute: Emit a single newline upon completion.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 1fa4aff1fbb46bbb9df8486ca12bfcfe6144458a
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Mar 21 17:20:10 2021 +0100

    substitute: Emit a single newline upon completion.
    
    The immediate effect is that, with '--verbosity=1', only two lines are
    displayed for each substitute, instead of two lines followed by an empty
    line.
    
    * guix/scripts/substitute.scm (process-substitution): Emit a single
    newline upon completion when PRINT-BUILD-TRACE? is true.
---
 guix/scripts/substitute.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm
index ccdc413..79eaabd 100755
--- a/guix/scripts/substitute.scm
+++ b/guix/scripts/substitute.scm
@@ -555,8 +555,11 @@ the current output port."
       (every (compose zero? cdr waitpid) pids)
 
       ;; Skip a line after what 'progress-reporter/file' printed, and another
-      ;; one to visually separate substitutions.
-      (display "\n\n" (current-error-port))
+      ;; one to visually separate substitutions.  When PRINT-BUILD-TRACE? is
+      ;; true, leave it up to (guix status) to prettify things.
+      (newline (current-error-port))
+      (unless print-build-trace?
+        (newline (current-error-port)))
 
       ;; Check whether we got the data announced in NARINFO.
       (let ((actual (get-hash)))