aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-10-18 22:39:03 +0200
committerLudovic Courtès <ludo@gnu.org>2019-10-18 23:22:25 +0200
commitf05f722657aebc282ba389ab4f4c07843241c4f0 (patch)
treef4823098caa0d1a6252e838ffa2818848d79e37c
parent6aeae5b90b9513d316141c0131fd43c76a200f63 (diff)
downloadguix-f05f722657aebc282ba389ab4f4c07843241c4f0.tar.gz
guix-f05f722657aebc282ba389ab4f4c07843241c4f0.zip
reconfigure: Silence "shepherd: Evaluating ..." messages.
* guix/scripts/system/reconfigure.scm (upgrade-services-program): Parameterize 'shepherd-message-port' to silent "Evaluating ..." messages.
-rw-r--r--guix/scripts/system/reconfigure.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/guix/scripts/system/reconfigure.scm b/guix/scripts/system/reconfigure.scm
index 579b7fffbe..2f9dbb2508 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)