From 38a2f5eafb43b6407f8d9755da31dcb50ce64167 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Sun, 14 Oct 2018 23:46:42 +0200
Subject: 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.
---
 guix/status.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/guix/status.scm b/guix/status.scm
index 13537c70cd..d8d761dc23 100644
--- a/guix/status.scm
+++ b/guix/status.scm
@@ -319,8 +319,9 @@ (define print-log-line
      (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
-- 
cgit v1.2.3