01/02: gnu: procps: Remove the 'kill' and 'uptime' commands.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 80393eeda23db166e2c3fde8fa884089b0e8dad4
Author: Ludovic Courtès <address@hidden>
Date:   Fri Feb 13 20:27:38 2015 +0100

    gnu: procps: Remove the 'kill' and 'uptime' commands.
    
    * gnu/packages/linux.scm (procps)[arguments]: Add #:modules.
      <install phase>: Remove kill* and uptime*.
---
 gnu/packages/linux.scm |   13 ++++++++++++-
 1 files changed, 12 insertions(+), 1 deletions(-)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 99adda9..fc95a0b 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -446,7 +446,11 @@ providing the system administrator with some help in 
common tasks.")
     (build-system gnu-build-system)
     (inputs `(("ncurses" ,ncurses)))
     (arguments
-     '(#:phases (alist-replace
+     '(#:modules ((guix build utils)
+                  (guix build gnu-build-system)
+                  (srfi srfi-1)
+                  (srfi srfi-26))
+       #:phases (alist-replace
                  'configure
                  (lambda* (#:key outputs #:allow-other-keys)
                    ;; No `configure', just a single Makefile.
@@ -468,6 +472,13 @@ providing the system administrator with some help in 
common tasks.")
                             (system* "make" "install"
                                      (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.
                            (zero?
                             (system* (string-append out "/bin/ps")