gnu: lvm2: Use 'modify-phases'.

* gnu/packages/linux.scm (lvm2)[arguments]: Use 'modify-phases'.
This commit is contained in:
Leo Famulari 2016-10-03 03:57:53 -04:00
parent af0ba93825
commit 3afbc6b3c3
No known key found for this signature in database
GPG key ID: 2646FA30BACA7F08

View file

@ -1661,16 +1661,17 @@ (define-public lvm2
(inputs (inputs
`(("udev" ,eudev))) `(("udev" ,eudev)))
(arguments (arguments
'(#:phases (alist-cons-after '(#:phases
'configure 'set-makefile-shell (modify-phases %standard-phases
(lambda _ (add-after 'configure 'set-makefile-shell
;; Use 'sh', not 'bash', so that '. lib/utils.sh' works as (lambda _
;; expected. ;; Use 'sh', not 'bash', so that '. lib/utils.sh' works as
(setenv "SHELL" (which "sh")) ;; expected.
(setenv "SHELL" (which "sh"))
;; Replace /bin/sh with the right file name. ;; Replace /bin/sh with the right file name.
(patch-makefile-SHELL "make.tmpl")) (patch-makefile-SHELL "make.tmpl")
%standard-phases) #t)))
#:configure-flags (list (string-append "--sysconfdir=" #:configure-flags (list (string-append "--sysconfdir="
(assoc-ref %outputs "out") (assoc-ref %outputs "out")