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:
		
							parent
							
								
									aa72d9afdf
								
							
						
					
					
						commit
						80393eeda2
					
				
					 1 changed files with 12 additions and 1 deletions
				
			
		| 
						 | 
				
			
			@ -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")
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Reference in a new issue