From d1ad5ad828c3300fd53b3959925b22f28b6de977 Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Sun, 15 May 2022 02:00:05 +0200 Subject: gnu: pigz: Use G-expressions. * gnu/packages/compression.scm (pigz)[arguments]: Rewrite as G-expressions. Don't explicitly return #t from phases. --- gnu/packages/compression.scm | 29 ++++++++++++++--------------- 1 file changed, 14 insertions(+), 15 deletions(-) diff --git a/gnu/packages/compression.scm b/gnu/packages/compression.scm index 778cf55a51..b78537b3a1 100644 --- a/gnu/packages/compression.scm +++ b/gnu/packages/compression.scm @@ -52,6 +52,7 @@ ;;; along with GNU Guix. If not, see . (define-module (gnu packages compression) + #:use-module (guix gexp) #:use-module ((guix licenses) #:prefix license:) #:use-module (guix utils) #:use-module (guix packages) @@ -990,21 +991,19 @@ byte-for-byte identical output.") "01y7n7lafp6maqnp4jrmasawnv67najh1bd7gjrmv3d08h1ydjdl")))) (build-system gnu-build-system) (arguments - `(#:phases - (modify-phases %standard-phases - (delete 'configure) - (replace 'install - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (bin (string-append out "/bin")) - (man (string-append out "/share/man/man1"))) - (install-file "pigz" bin) - (symlink "pigz" (string-append bin "/unpigz")) - (install-file "pigz.1" man) - #t)))) - #:make-flags - (list ,(string-append "CC=" (cc-for-target))) - #:test-target "test")) + (list #:make-flags + #~(list (string-append "CC=" #$(cc-for-target))) + #:test-target "test" + #:phases + #~(modify-phases %standard-phases + (delete 'configure) + (replace 'install + (lambda _ + (let* ((bin (string-append #$output "/bin")) + (man (string-append #$output "/share/man/man1"))) + (install-file "pigz" bin) + (symlink "pigz" (string-append bin "/unpigz")) + (install-file "pigz.1" man))))))) (native-inputs (list which)) (inputs (list zlib)) (home-page "https://zlib.net/pigz/") -- cgit v1.2.3