diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2022-05-15 02:00:05 +0200 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2022-05-15 02:00:18 +0200 |
| commit | d1ad5ad828c3300fd53b3959925b22f28b6de977 (patch) | |
| tree | bb9019c1ec22c0c1df2b2d42e34d9a7b7dc643d6 /gnu/packages/compression.scm | |
| parent | b247d7a46979c4ff63867de9243a186b6adaca7e (diff) | |
| download | guix-patches-d1ad5ad828c3300fd53b3959925b22f28b6de977.tar guix-patches-d1ad5ad828c3300fd53b3959925b22f28b6de977.tar.gz | |
gnu: pigz: Use G-expressions.
* gnu/packages/compression.scm (pigz)[arguments]:
Rewrite as G-expressions. Don't explicitly return #t from phases.
Diffstat (limited to 'gnu/packages/compression.scm')
| -rw-r--r-- | gnu/packages/compression.scm | 29 |
1 files 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 <http://www.gnu.org/licenses/>. (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/") |