gnu: nginx, nginx-documentation: End phases with #t.
* gnu/packages/web.scm (nginx, nginx-documentation)[arguments]: End phases with #t. Substitute INVOKE for SYSTEM*.
This commit is contained in:
parent
581ae110de
commit
6d286d8204
|
@ -230,7 +230,8 @@ Interface} specification.")
|
||||||
(setenv "CC" "gcc")
|
(setenv "CC" "gcc")
|
||||||
(format #t "environment variable `CC' set to `gcc'~%")
|
(format #t "environment variable `CC' set to `gcc'~%")
|
||||||
(format #t "configure flags: ~s~%" flags)
|
(format #t "configure flags: ~s~%" flags)
|
||||||
(zero? (apply system* "./configure" flags)))))
|
(apply invoke "./configure" flags)
|
||||||
|
#t)))
|
||||||
(add-after 'install 'install-man-page
|
(add-after 'install 'install-man-page
|
||||||
(lambda* (#:key outputs #:allow-other-keys)
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
(let* ((out (assoc-ref outputs "out"))
|
(let* ((out (assoc-ref outputs "out"))
|
||||||
|
@ -251,7 +252,8 @@ Interface} specification.")
|
||||||
(rename-file (string-append out "/conf")
|
(rename-file (string-append out "/conf")
|
||||||
(string-append share "/conf"))
|
(string-append share "/conf"))
|
||||||
(rename-file (string-append out "/html")
|
(rename-file (string-append out "/html")
|
||||||
(string-append share "/html"))))))))
|
(string-append share "/html"))
|
||||||
|
#t))))))
|
||||||
(home-page "https://nginx.org")
|
(home-page "https://nginx.org")
|
||||||
(synopsis "HTTP and reverse proxy server")
|
(synopsis "HTTP and reverse proxy server")
|
||||||
(description
|
(description
|
||||||
|
@ -343,7 +345,8 @@ documentation.")
|
||||||
(("#banner \\{ background: black;")
|
(("#banner \\{ background: black;")
|
||||||
"#banner { background: black;
|
"#banner { background: black;
|
||||||
display: none;"))
|
display: none;"))
|
||||||
(zero? (system* "make")))))
|
(invoke "make")
|
||||||
|
#t)))
|
||||||
(replace 'install
|
(replace 'install
|
||||||
(lambda* (#:key outputs #:allow-other-keys)
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
(let ((output (assoc-ref outputs "out")))
|
(let ((output (assoc-ref outputs "out")))
|
||||||
|
|
Loading…
Reference in New Issue