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 | |
| parent | gnu: pigz: Update to 2.7. (diff) | |
| download | guix-d1ad5ad828c3300fd53b3959925b22f28b6de977.tar.gz guix-d1ad5ad828c3300fd53b3959925b22f28b6de977.tar.bz2 guix-d1ad5ad828c3300fd53b3959925b22f28b6de977.tar.xz | |
gnu: pigz: Use G-expressions.
* gnu/packages/compression.scm (pigz)[arguments]:
Rewrite as G-expressions. Don't explicitly return #t from phases.
| -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 @@ | |||
| 52 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | 52 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. |
| 53 | 53 | ||
| 54 | (define-module (gnu packages compression) | 54 | (define-module (gnu packages compression) |
| 55 | #:use-module (guix gexp) | ||
| 55 | #:use-module ((guix licenses) #:prefix license:) | 56 | #:use-module ((guix licenses) #:prefix license:) |
| 56 | #:use-module (guix utils) | 57 | #:use-module (guix utils) |
| 57 | #:use-module (guix packages) | 58 | #:use-module (guix packages) |
| @@ -990,21 +991,19 @@ byte-for-byte identical output.") | |||
| 990 | "01y7n7lafp6maqnp4jrmasawnv67najh1bd7gjrmv3d08h1ydjdl")))) | 991 | "01y7n7lafp6maqnp4jrmasawnv67najh1bd7gjrmv3d08h1ydjdl")))) |
| 991 | (build-system gnu-build-system) | 992 | (build-system gnu-build-system) |
| 992 | (arguments | 993 | (arguments |
| 993 | `(#:phases | 994 | (list #:make-flags |
| 994 | (modify-phases %standard-phases | 995 | #~(list (string-append "CC=" #$(cc-for-target))) |
| 995 | (delete 'configure) | 996 | #:test-target "test" |
| 996 | (replace 'install | 997 | #:phases |
| 997 | (lambda* (#:key outputs #:allow-other-keys) | 998 | #~(modify-phases %standard-phases |
| 998 | (let* ((out (assoc-ref outputs "out")) | 999 | (delete 'configure) |
| 999 | (bin (string-append out "/bin")) | 1000 | (replace 'install |
| 1000 | (man (string-append out "/share/man/man1"))) | 1001 | (lambda _ |
| 1001 | (install-file "pigz" bin) | 1002 | (let* ((bin (string-append #$output "/bin")) |
| 1002 | (symlink "pigz" (string-append bin "/unpigz")) | 1003 | (man (string-append #$output "/share/man/man1"))) |
| 1003 | (install-file "pigz.1" man) | 1004 | (install-file "pigz" bin) |
| 1004 | #t)))) | 1005 | (symlink "pigz" (string-append bin "/unpigz")) |
| 1005 | #:make-flags | 1006 | (install-file "pigz.1" man))))))) |
| 1006 | (list ,(string-append "CC=" (cc-for-target))) | ||
| 1007 | #:test-target "test")) | ||
| 1008 | (native-inputs (list which)) | 1007 | (native-inputs (list which)) |
| 1009 | (inputs (list zlib)) | 1008 | (inputs (list zlib)) |
| 1010 | (home-page "https://zlib.net/pigz/") | 1009 | (home-page "https://zlib.net/pigz/") |