gnu: bash-static: Use 'modify-phases'.

* gnu/packages/bash.scm (static-bash)[arguments]: Use 'modify-phases'.
This commit is contained in:
Ludovic Courtès 2016-09-30 16:59:51 +02:00
parent 0c64d8564f
commit a7a1cf2948
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -261,16 +261,15 @@ (define-public static-bash
(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