01/01: installer: Suppress stderr of "guix build".

[Danny Milosavljevic]

dannym pushed a commit to branch wip-installer-2
in repository guix.

commit b0de083ff78ab0a8bee399f935f3612d1388b339
Author: Danny Milosavljevic <address@hidden>
Date:   Fri Jul 7 16:54:59 2017 +0200

    installer: Suppress stderr of "guix build".
    
    * gnu/system/installer/guixsd-installer.scm (main-options): Suppress stderr 
of
    "guix build".
---
 gnu/system/installer/guixsd-installer.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnu/system/installer/guixsd-installer.scm 
b/gnu/system/installer/guixsd-installer.scm
index 945929a..9c80f53 100644
--- a/gnu/system/installer/guixsd-installer.scm
+++ b/gnu/system/installer/guixsd-installer.scm
@@ -116,8 +116,9 @@
                                page
                                (or
                                 (getenv "TZDIR")
-                                (string-append (car (slurp* "guix" "build" 
"tzdata"))
-                                               "/share/zoneinfo"))))))
+                                (parameterize ((current-error-port 
(%make-void-port "w")))
+                                  (string-append (car (slurp* "guix" "build" 
"tzdata"))
+                                                 "/share/zoneinfo")))))))
 
     (hostname . ,(make-task hostname-menu-title
                             '()