gnu: gcc-toolchain: Remove 'bin/sh' and 'bin/bash'.

* gnu/packages/commencement.scm (gcc-toolchain)[arguments] <#:builder>: Delete
  'bin/sh' and 'bin/bash'.
This commit is contained in:
Ludovic Courtès 2015-05-18 22:53:09 +02:00
parent 1b2b81773c
commit 6f450b87de
1 changed files with 17 additions and 7 deletions

View File

@ -756,16 +756,26 @@ COREUTILS-FINAL vs. COREUTILS, etc."
'(#:modules ((guix build union)) '(#:modules ((guix build union))
#:builder (begin #:builder (begin
(use-modules (ice-9 match) (use-modules (ice-9 match)
(srfi srfi-26)
(guix build union)) (guix build union))
(match %build-inputs (let ((out (assoc-ref %outputs "out")))
(((names . directories) ...)
(union-build (assoc-ref %outputs "out")
directories)))
(union-build (assoc-ref %outputs "debug") (match %build-inputs
(list (assoc-ref %build-inputs (((names . directories) ...)
"libc-debug")))))) (union-build out directories)))
;; Remove the 'sh' and 'bash' binaries that come with
;; libc to avoid polluting the user's profile (these are
;; statically-linked binaries with no locale support and
;; so on.)
(for-each (lambda (file)
(delete-file (string-append out "/bin/" file)))
'("sh" "bash"))
(union-build (assoc-ref %outputs "debug")
(list (assoc-ref %build-inputs
"libc-debug")))))))
(native-search-paths (package-native-search-paths gcc)) (native-search-paths (package-native-search-paths gcc))
(search-paths (package-search-paths gcc)) (search-paths (package-search-paths gcc))