diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index 99adda92c9106201c7c18945cfdc27f02f14992d..fc95a0b8969ecec56b16c0d5cbd193f701721b36 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -446,7 +446,11 @@ (define-public procps (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 @@ (define-public procps (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")