[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: gnu: procps: Remove the 'kill' and 'uptime' commands.
From: |
Ludovic Courtès |
Subject: |
01/02: gnu: procps: Remove the 'kill' and 'uptime' commands. |
Date: |
Fri, 13 Feb 2015 20:01:04 +0000 |
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")