~ruther/guix-local

6d286d82046479661dcaf3add91912b216b6e358 — Tobias Geerinckx-Rice 8 years ago 581ae11
gnu: nginx, nginx-documentation: End phases with #t.

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

M gnu/packages/web.scm
M gnu/packages/web.scm => gnu/packages/web.scm +6 -3
@@ 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")))