nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: procps: Remove the 'kill' and 'uptime' commands. 

* gnu/packages/linux.scm (procps)[arguments]: Add #:modules.
  <install phase>: Remove kill* and uptime*.
This commit is contained in:
Ludovic Courtès 2015-02-13 20:27:38 +01:00
parent aa72d9afdf
commit 80393eeda2
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gnu/packages/linux.scm
View File

@ -446,7 +446,11 @@ providing the system administrator with some help in common tasks.")
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs `(("ncurses" ,ncurses))) (inputs `(("ncurses" ,ncurses)))
(arguments (arguments
'(#:phases (alist-replace '(#:modules ((guix build utils)
(guix build gnu-build-system)
(srfi srfi-1)
(srfi srfi-26))
#:phases (alist-replace
'configure 'configure
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; No `configure', just a single Makefile. ;; No `configure', just a single Makefile.
@ -468,6 +472,13 @@ providing the system administrator with some help in common tasks.")
(system* "make" "install" (system* "make" "install"
(string-append "DESTDIR=" out))) (string-append "DESTDIR=" out)))
;; Remove commands and man pages redundant with
;; Coreutils.
(let ((dup (append-map (cut find-files out <>)
'("^kill" "^uptime"))))
(for-each delete-file dup)
#t)
;; Sanity check. ;; Sanity check.
(zero? (zero?
(system* (string-append out "/bin/ps") (system* (string-append out "/bin/ps")