ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-17 00:18:16 -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")))) "04v5q5cshzyhbwaw4n9l0k8faaz67n11z31vpfaiqynv9rwr4k8g"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:modules ((guix build utils) (list #:modules '((guix build utils)
(guix build gnu-build-system) (guix build gnu-build-system)
(srfi srfi-1) (srfi srfi-1)
(srfi srfi-26)) (srfi srfi-26))
,@(if (%current-target-system) #:configure-flags
'(#:configure-flags (if (%current-target-system)
(list #~'("ac_cv_func_malloc_0_nonnull=yes"
"ac_cv_func_malloc_0_nonnull=yes" "ac_cv_func_realloc_0_nonnull=yes")
"ac_cv_func_realloc_0_nonnull=yes")) #~'())
'()) #:phases
#:phases #~(modify-phases %standard-phases
(modify-phases %standard-phases (add-after 'install 'post-install
(add-after ;; Remove commands and man pages redudant with
'install 'post-install ;; Coreutils.
;; Remove commands and man pages redudant with (lambda* (#:key outputs #:allow-other-keys)
;; Coreutils. (let* ((out #$output)
(lambda* (#:key outputs #:allow-other-keys) (dup (append-map (cut find-files out <>)
(let* ((out (assoc-ref outputs "out")) '("^kill" "^uptime"))))
(dup (append-map (cut find-files out <>) (for-each delete-file dup)))))))
'("^kill" "^uptime"))))
(for-each delete-file dup)
#t))))))
(inputs (list ncurses)) (inputs (list ncurses))
(home-page "https://gitlab.com/procps-ng/procps/") (home-page "https://gitlab.com/procps-ng/procps/")
(synopsis "Utilities that give information about processes") (synopsis "Utilities that give information about processes")