01/03: website: Use 'invoke' instead of 'system*'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix-artwork.

commit 839642a5918926bf60452e4c5d22f1bffe33b77e
Author: Ludovic Courtès <address@hidden>
Date:   Thu Aug 22 16:39:48 2019 +0200

    website: Use 'invoke' instead of 'system*'.
    
    * website/.guix.scm (build): Use 'invoke'.
---
 website/.guix.scm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/website/.guix.scm b/website/.guix.scm
index 068ef0d..3aa4425 100644
--- a/website/.guix.scm
+++ b/website/.guix.scm
@@ -65,12 +65,14 @@
           ;; Choose the layout for guix.gnu.org.
           (setenv "GUIX_WEB_SITE_INFO" "t")
 
-          (when (zero? (system* #+(file-append (specification->package "haunt")
-                                               "/bin/haunt")
-                                "build"))
-            (mkdir-p #$output)
-            (copy-recursively "/tmp/gnu.org/software/guix" #$output)
-            (symlink "guix.html" (string-append #$output "/index.html")))))))
+          (invoke #+(file-append (specification->package "haunt")
+                                 "/bin/haunt")
+                  "build")
+
+          (mkdir-p #$output)
+          (copy-recursively "/tmp/gnu.org/software/guix" #$output
+                            #:log (%make-void-port "w"))
+          (symlink "guix.html" (string-append #$output "/index.html"))))))
 
 (computed-file "guix-web-site" build)