amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: pigz: Use G-expressions.

Browse source 
* gnu/packages/compression.scm (pigz)[arguments]:
Rewrite as G-expressions.  Don't explicitly return #t from phases.
This commit is contained in:
Tobias Geerinckx-Rice 2022-05-15 02:00:05 +02:00
parent b247d7a469
commit d1ad5ad828
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 14 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

21
gnu/packages/compression.scm
View file

@ -52,6 +52,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages compression) (define-module (gnu packages compression)
#:use-module (guix gexp)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (guix packages) #:use-module (guix packages)
@ -990,21 +991,19 @@ byte-for-byte identical output.")
"01y7n7lafp6maqnp4jrmasawnv67najh1bd7gjrmv3d08h1ydjdl")))) "01y7n7lafp6maqnp4jrmasawnv67najh1bd7gjrmv3d08h1ydjdl"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases (list #:make-flags
(modify-phases %standard-phases #~(list (string-append "CC=" #$(cc-for-target)))
#:test-target "test"
#:phases
#~(modify-phases %standard-phases
(delete 'configure) (delete 'configure)
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")) (let* ((bin (string-append #$output "/bin"))
(bin (string-append out "/bin")) (man (string-append #$output "/share/man/man1")))
(man (string-append out "/share/man/man1")))
(install-file "pigz" bin) (install-file "pigz" bin)
(symlink "pigz" (string-append bin "/unpigz")) (symlink "pigz" (string-append bin "/unpigz"))
(install-file "pigz.1" man) (install-file "pigz.1" man)))))))
#t))))
#:make-flags
(list ,(string-append "CC=" (cc-for-target)))
#:test-target "test"))
(native-inputs (list which)) (native-inputs (list which))
(inputs (list zlib)) (inputs (list zlib))
(home-page "https://zlib.net/pigz/") (home-page "https://zlib.net/pigz/")