summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2022-05-15 02:00:05 +0200
committerTobias Geerinckx-Rice <me@tobias.gr>2022-05-15 02:00:18 +0200
commitd1ad5ad828c3300fd53b3959925b22f28b6de977 (patch)
treebb9019c1ec22c0c1df2b2d42e34d9a7b7dc643d6
parentgnu: pigz: Update to 2.7. (diff)
downloadguix-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.scm29
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/")