diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-10-18 22:39:03 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-10-18 23:22:25 +0200 |
| commit | f05f722657aebc282ba389ab4f4c07843241c4f0 (patch) | |
| tree | f4823098caa0d1a6252e838ffa2818848d79e37c | |
| parent | 6aeae5b90b9513d316141c0131fd43c76a200f63 (diff) | |
| download | guix-f05f722657aebc282ba389ab4f4c07843241c4f0.tar guix-f05f722657aebc282ba389ab4f4c07843241c4f0.tar.gz | |
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.scm | 5 |
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) |