03/05: reconfigure: Silence "shepherd: Evaluating ..." messages.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit f05f722657aebc282ba389ab4f4c07843241c4f0
Author: Ludovic Courtès <address@hidden>
Date:   Fri Oct 18 22:39:03 2019 +0200

    reconfigure: Silence "shepherd: Evaluating ..." messages.
    
    * guix/scripts/system/reconfigure.scm (upgrade-services-program):
    Parameterize 'shepherd-message-port' to silent "Evaluating ..." messages.
---
 guix/scripts/system/reconfigure.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/guix/scripts/system/reconfigure.scm 
b/guix/scripts/system/reconfigure.scm
index 579b7ff..2f9dbb2 100644
--- a/guix/scripts/system/reconfigure.scm
+++ b/guix/scripts/system/reconfigure.scm
@@ -136,7 +136,10 @@ canonical names (symbols)."
                      (srfi srfi-1))
 
         ;; Load the service files for any new services.
-        (load-services/safe '#$service-files)
+        ;; Silence messages coming from shepherd such as "Evaluating
+        ;; expression ..." since they are unhelpful.
+        (parameterize ((shepherd-message-port (%make-void-port "w")))
+          (load-services/safe '#$service-files))
 
         ;; Unload obsolete services and start new services.
         (for-each unload-service '#$to-unload)