gnu: parallel: Update to 20211022.

* gnu/packages/parallel.scm (parallel): Update to 20211022.
[arguments]: Don't explicitly return #t from phases.
This commit is contained in:
Tobias Geerinckx-Rice 2021-10-24 17:48:56 +02:00
parent 83a7d42426
commit 2ab53a68fd
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

@ -61,14 +61,14 @@ (define-module (gnu packages parallel)
(define-public parallel (define-public parallel
(package (package
(name "parallel") (name "parallel")
(version "20210922") (version "20211022")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://gnu/parallel/parallel-" (uri (string-append "mirror://gnu/parallel/parallel-"
version ".tar.bz2")) version ".tar.bz2"))
(sha256 (sha256
(base32 "0rjd9636sgmnhaww2q8rbnpwhpq1aqg3df6rmpdm880zqi7skp6y")))) (base32 "16yyjvlm70lj7csaz4am98dlyqrc588xydnfnabxm71awby90wfs"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases `(#:phases
@ -82,8 +82,7 @@ (define-public parallel
;; $Global::shell = $ENV{'PARALLEL_SHELL'} || ;; $Global::shell = $ENV{'PARALLEL_SHELL'} ||
;; parent_shell($$) || $ENV{'SHELL'} || "/bin/sh"; ;; parent_shell($$) || $ENV{'SHELL'} || "/bin/sh";
(("/bin/sh\\\";\n$") (string-append (which "sh") "\";\n")))) (("/bin/sh\\\";\n$") (string-append (which "sh") "\";\n"))))
(list "src/parallel" "src/sem")) (list "src/parallel" "src/sem"))))
#t))
(add-after 'install 'wrap-program (add-after 'install 'wrap-program
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
@ -92,8 +91,7 @@ (define-public parallel
,(map (lambda (input) ,(map (lambda (input)
(string-append (assoc-ref inputs input) "/bin")) (string-append (assoc-ref inputs input) "/bin"))
'("perl" '("perl"
"procps")))) "procps")))))))
#t)))
(add-after 'wrap-program 'post-install-test (add-after 'wrap-program 'post-install-test
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(invoke (string-append (invoke (string-append