02/02: services: nginx: Use 'invoke' rather than 'system*'.

[Cl�ment Lassieur]

snape pushed a commit to branch master
in repository guix.

commit 4ae0607dd88cfb36a56fa27d0e04f6e6228058e8
Author: Clément Lassieur <clem...@lassieur.org>
Date:   Mon Aug 13 21:02:39 2018 +0200

    services: nginx: Use 'invoke' rather than 'system*'.
    
    * gnu/services/web.scm (nginx-shepherd-service): Replace SYSTEM* with 
INVOKE.
---
 gnu/services/web.scm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/gnu/services/web.scm b/gnu/services/web.scm
index 9a58eff..9797650 100644
--- a/gnu/services/web.scm
+++ b/gnu/services/web.scm
@@ -5,7 +5,7 @@
 ;;; Copyright © 2016, 2017, 2018 Julien Lepiller <jul...@lepiller.eu>
 ;;; Copyright © 2017 Christopher Baines <m...@cbaines.net>
 ;;; Copyright © 2017 nee <nee-...@hidamari.blue>
-;;; Copyright © 2017 Clément Lassieur <clem...@lassieur.org>
+;;; Copyright © 2017, 2018 Clément Lassieur <clem...@lassieur.org>
 ;;; Copyright © 2018 Pierre-Antoine Rouby <pierre-antoine.ro...@inria.fr>
 ;;;
 ;;; This file is part of GNU Guix.
@@ -602,11 +602,10 @@ of index files."
           (nginx-action
            (lambda args
              #~(lambda _
-                 (zero?
-                  (system* #$nginx-binary "-c"
-                           #$(or file
-                                 (default-nginx-config config))
-                           #$@args))))))
+                 (invoke #$nginx-binary "-c"
+                         #$(or file
+                               (default-nginx-config config))
+                         #$@args)))))
 
      ;; TODO: Add 'reload' action.
      (list (shepherd-service