status: Avoid "sucessfully built" messages when in quiet mode.

* guix/status.scm (print-build-event): Print "successfully built"
messages only when PRINT-LOG? is true, like we do for
'substituter-started' events.
This commit is contained in:
Ludovic Courtès 2018-10-14 23:46:42 +02:00
parent 2510bd8756
commit 38a2f5eafb
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 2 deletions

View File

@ -319,8 +319,9 @@ addition to build events."
(format port (info (G_ "building ~a...")) drv)
(newline port))
(('build-succeeded drv . _)
(format port (success (G_ "successfully built ~a")) drv)
(newline port)
(when (or print-log? (not (extended-build-trace-supported?)))
(format port (success (G_ "successfully built ~a")) drv)
(newline port))
(match (build-status-building status)
(() #t)
(ongoing ;when max-jobs > 1