ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-24 19:49:25 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: nginx: Use modify-phases syntax.

Browse source 
* gnu/packages/web.scm (nginx): Use modify-phases syntax.
This commit is contained in:
David Thompson 2015-04-05 12:31:54 -04:00
parent e16fde1447
commit a71c315bc2
1 changed files with 30 additions and 32 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/packages/web.scm
View file

@ -108,13 +108,12 @@ (define-public nginx
(arguments (arguments
`(#:tests? #f ; no test target `(#:tests? #f ; no test target
#:phases #:phases
(alist-cons-before (modify-phases %standard-phases
'configure 'patch-/bin/sh (add-before configure patch-/bin/sh
(lambda _ (lambda _
(substitute* "auto/feature" (substitute* "auto/feature"
(("/bin/sh") (which "bash")))) (("/bin/sh") (which "bash")))))
(alist-replace (replace configure
'configure
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((flags (let ((flags
(list (string-append "--prefix=" (assoc-ref outputs "out")) (list (string-append "--prefix=" (assoc-ref outputs "out"))
@ -138,8 +137,7 @@ (define-public nginx
(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)))) (zero? (apply system* "./configure" flags))))))))
%standard-phases))))
(home-page "http://nginx.org") (home-page "http://nginx.org")
(synopsis "HTTP and reverse proxy server") (synopsis "HTTP and reverse proxy server")
(description (description