Patchwork [1/3] gnu: lvm2: Use 'modify-phases'.

login
register
mail settings
Submitter Leo Famulari
Date Oct. 3, 2016, 7:42 p.m.
Message ID <a5624193c3722522813b22233870920f700fd09f.1475523667.git.leo@famulari.name>
Download mbox | patch
Permalink /patch/16219/
State New
Headers show

Comments

Leo Famulari - Oct. 3, 2016, 7:42 p.m.
* gnu/packages/linux.scm (lvm2)[arguments]: Use 'modify-phases'.
---
 gnu/packages/linux.scm | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)
Ludovic Court├Ęs - Oct. 6, 2016, 8:33 p.m.
Leo Famulari <leo@famulari.name> skribis:

> * gnu/packages/linux.scm (lvm2)[arguments]: Use 'modify-phases'.

OK!

Patch

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 693558f..28a2e81 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -1657,16 +1657,17 @@  time.")
     (inputs
      `(("udev" ,eudev)))
     (arguments
-     '(#:phases (alist-cons-after
-                 'configure 'set-makefile-shell
-                 (lambda _
-                   ;; Use 'sh', not 'bash', so that '. lib/utils.sh' works as
-                   ;; expected.
-                   (setenv "SHELL" (which "sh"))
+     '(#:phases
+       (modify-phases %standard-phases
+         (add-after 'configure 'set-makefile-shell
+           (lambda _
+             ;; Use 'sh', not 'bash', so that '. lib/utils.sh' works as
+             ;; expected.
+             (setenv "SHELL" (which "sh"))
 
-                   ;; Replace /bin/sh with the right file name.
-                   (patch-makefile-SHELL "make.tmpl"))
-                 %standard-phases)
+             ;; Replace /bin/sh with the right file name.
+             (patch-makefile-SHELL "make.tmpl")
+             #t)))
 
        #:configure-flags (list (string-append "--sysconfdir="
                                               (assoc-ref %outputs "out")