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.
This commit is contained in:
Ludovic Courtès 2021-03-21 17:20:10 +01:00
parent f233bb170b
commit 1fa4aff1fb
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5

View File

@ -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)))