03/04: gnu: bash-static: Use 'modify-phases'.

[Ludovic Courtès]

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

commit a7a1cf29485be66e606551ccfbcfcec4bc550791
Author: Ludovic Courtès <address@hidden>
Date:   Fri Sep 30 16:59:51 2016 +0200

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

diff --git a/gnu/packages/bash.scm b/gnu/packages/bash.scm
index bddb830..885e3cb 100644
--- a/gnu/packages/bash.scm
+++ b/gnu/packages/bash.scm
@@ -261,16 +261,15 @@ without modification.")
        (substitute-keyword-arguments
            `(#:allowed-references ("out") ,@(package-arguments bash))
          ((#:phases phases)
-          `(alist-cons-after
-            'strip 'remove-everything-but-the-binary
-            (lambda* (#:key outputs #:allow-other-keys)
-              (let* ((out (assoc-ref outputs "out"))
-                     (bin (string-append out "/bin")))
-                (remove-store-references (string-append bin "/bash"))
-                (delete-file (string-append bin "/bashbug"))
-                (delete-file-recursively (string-append out "/share"))
-                #t))
-            ,phases)))))))
+          `(modify-phases ,phases
+             (add-after 'strip 'remove-everything-but-the-binary
+               (lambda* (#:key outputs #:allow-other-keys)
+                 (let* ((out (assoc-ref outputs "out"))
+                        (bin (string-append out "/bin")))
+                   (remove-store-references (string-append bin "/bash"))
+                   (delete-file (string-append bin "/bashbug"))
+                   (delete-file-recursively (string-append out "/share"))
+                   #t))))))))))
 
 (define-public bash-completion
   (package