ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-16 16:08:04 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: procps: Use G-expressions.

Browse source 
* gnu/packages/linux.scm (procps)[arguments]: Convert to gexp.
This commit is contained in:
Marius Bakke 2022-06-26 11:16:52 +02:00
parent 28ae4f7e1a
commit a00a3eb1cf
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 19 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
gnu/packages/linux.scm
View file

@ -2077,28 +2077,25 @@ (define-public procps
"04v5q5cshzyhbwaw4n9l0k8faaz67n11z31vpfaiqynv9rwr4k8g"))))
(build-system gnu-build-system)
(arguments
`(#:modules ((guix build utils)
(guix build gnu-build-system)
(srfi srfi-1)
(srfi srfi-26))
,@(if (%current-target-system)
'(#:configure-flags
(list
"ac_cv_func_malloc_0_nonnull=yes"
"ac_cv_func_realloc_0_nonnull=yes"))
'())
#:phases
(modify-phases %standard-phases
(add-after
'install 'post-install
;; Remove commands and man pages redudant with
;; Coreutils.
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(dup (append-map (cut find-files out <>)
'("^kill" "^uptime"))))
(for-each delete-file dup)
#t))))))
(list #:modules '((guix build utils)
(guix build gnu-build-system)
(srfi srfi-1)
(srfi srfi-26))
#:configure-flags
(if (%current-target-system)
#~'("ac_cv_func_malloc_0_nonnull=yes"
"ac_cv_func_realloc_0_nonnull=yes")
#~'())
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'post-install
;; Remove commands and man pages redudant with
;; Coreutils.
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out #$output)
(dup (append-map (cut find-files out <>)
'("^kill" "^uptime"))))
(for-each delete-file dup)))))))
(inputs (list ncurses))
(home-page "https://gitlab.com/procps-ng/procps/")
(synopsis "Utilities that give information about processes")