[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/04: gnu: bash-static: Use 'modify-phases'.
From: |
Ludovic Courtès |
Subject: |
03/04: gnu: bash-static: Use 'modify-phases'. |
Date: |
Fri, 30 Sep 2016 22:02:21 +0000 (UTC) |
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