me/guix
Archived
1
0
Fork 0
Code Activity

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

Browse source 
* gnu/packages/web.scm (nginx, nginx-documentation)[arguments]: End
phases with #t.  Substitute INVOKE for SYSTEM*.
This commit is contained in:
Tobias Geerinckx-Rice 2018-01-30 04:09:14 +01:00
parent 581ae110de
commit 6d286d8204
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/packages/web.scm
View file

@ -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")))