diff options
| author | Marius Bakke <marius@gnu.org> | 2022-06-26 11:16:52 +0200 |
|---|---|---|
| committer | Marius Bakke <marius@gnu.org> | 2022-06-26 12:06:31 +0200 |
| commit | a00a3eb1cf97c156756244e29d1276e062d2b791 (patch) | |
| tree | 245ab87aca3a07b815850f1010a63c9ab7b3d837 | |
| parent | 28ae4f7e1ac28763c554a86233f245ee5d7a174a (diff) | |
| download | guix-a00a3eb1cf97c156756244e29d1276e062d2b791.tar.gz | |
gnu: procps: Use G-expressions.
* gnu/packages/linux.scm (procps)[arguments]: Convert to gexp.
| -rw-r--r-- | gnu/packages/linux.scm | 41 |
1 files changed, 19 insertions, 22 deletions
diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index 5db85bb61f..6c04b4baec 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -2077,28 +2077,25 @@ parameters.") "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") |