ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 23:46:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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
1 changed files with 9 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
gnu/packages/bash.scm
View file

@ -261,16 +261,15 @@ (define-public static-bash
(substitute-keyword-arguments (substitute-keyword-arguments
`(#:allowed-references ("out") ,@(package-arguments bash)) `(#:allowed-references ("out") ,@(package-arguments bash))
((#:phases phases) ((#:phases phases)
`(alist-cons-after `(modify-phases ,phases
'strip 'remove-everything-but-the-binary (add-after 'strip 'remove-everything-but-the-binary
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))) (bin (string-append out "/bin")))
(remove-store-references (string-append bin "/bash")) (remove-store-references (string-append bin "/bash"))
(delete-file (string-append bin "/bashbug")) (delete-file (string-append bin "/bashbug"))
(delete-file-recursively (string-append out "/share")) (delete-file-recursively (string-append out "/share"))
#t)) #t))))))))))
,phases)))))))
(define-public bash-completion (define-public bash-completion
(package (package