06/12: gnu: nginx, nginx-documentation: End phases with #t.

[Tobias Geerinckx-Rice]

nckx pushed a commit to branch master
in repository guix.

commit 6d286d82046479661dcaf3add91912b216b6e358
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Tue Jan 30 04:09:14 2018 +0100

    gnu: nginx, nginx-documentation: End phases with #t.
    
    * gnu/packages/web.scm (nginx, nginx-documentation)[arguments]: End
    phases with #t.  Substitute INVOKE for SYSTEM*.
---
 gnu/packages/web.scm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
index 08485ca..3a33110 100644
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -230,7 +230,8 @@ Interface} specification.")
                (setenv "CC" "gcc")
                (format #t "environment variable `CC' set to `gcc'~%")
                (format #t "configure flags: ~s~%" flags)
-               (zero? (apply system* "./configure" flags)))))
+               (apply invoke "./configure" flags)
+               #t)))
          (add-after 'install 'install-man-page
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))
@@ -251,7 +252,8 @@ Interface} specification.")
                (rename-file (string-append out "/conf")
                             (string-append share "/conf"))
                (rename-file (string-append out "/html")
-                            (string-append share "/html"))))))))
+                            (string-append share "/html"))
+               #t))))))
     (home-page "https://nginx.org";)
     (synopsis "HTTP and reverse proxy server")
     (description
@@ -343,7 +345,8 @@ documentation.")
                    (("#banner           \\{ background:     black;")
                     "#banner           { background:     black;
                             display:     none;"))
-                 (zero? (system* "make")))))
+                 (invoke "make")
+                 #t)))
            (replace 'install
              (lambda* (#:key outputs #:allow-other-keys)
                (let ((output (assoc-ref outputs "out")))