01/05: gnu: acl: Use 'modify-phases' syntax.

[Efraim Flashner]

efraim pushed a commit to branch core-updates
in repository guix.

commit 79272039a9586aef8105007900b62dcb4b00ca9b
Author: Efraim Flashner <address@hidden>
Date:   Wed Oct 18 16:23:00 2017 +0300

    gnu: acl: Use 'modify-phases' syntax.
    
    * gnu/packages/acl.scm (acl)[arguments]: Use 'modify-phases' syntax.
---
 gnu/packages/acl.scm | 19 +++++++++----------
 1 file changed, 9 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/acl.scm b/gnu/packages/acl.scm
index ae67649..35bafc4 100644
--- a/gnu/packages/acl.scm
+++ b/gnu/packages/acl.scm
@@ -47,16 +47,15 @@
      `(#:tests? #f   ; FIXME: Investigate test suite failures
        #:test-target "tests"
        #:phases
-        (alist-cons-after
-         'build 'patch-exec-bin-sh
-         (lambda _
-           (substitute* "test/run"
-             (("/bin/sh") (which "sh"))))
-         (alist-replace
-          'install
-          (lambda _
-            (zero? (system* "make" "install" "install-lib" "install-dev")))
-          %standard-phases))))
+       (modify-phases %standard-phases
+         (add-after 'build 'patch-exec-bin-sh
+           (lambda _
+             (substitute* "test/run"
+               (("/bin/sh") (which "sh")))
+             #t))
+         (replace 'install
+           (lambda _
+             (zero? (system* "make" "install" "install-lib" 
"install-dev")))))))
     (inputs `(("attr" ,attr)))
     (native-inputs
      `(("gettext" ,gettext-minimal)