gnu: node-lts: Simplify snippet.

* gnu/packages/node.scm (node-lts)[source]: Remove quasiquote, trailing #T,
and IF with explicit booleans.
This commit is contained in:
Ricardo Wurmus 2023-07-13 10:30:14 +02:00
parent 00ed2901f5
commit 529d91de1e
No known key found for this signature in database
GPG key ID: 197A5888235FACAC

View file

@ -7,7 +7,7 @@
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018-2022 Marius Bakke <marius@gnu.org>
;;; Copyright © 2020, 2021 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2020, 2023 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2021 Simon Tournier <zimon.toutoune@gmail.com>
;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2021, 2022 Philip McGrath <philip@philipmcgrath.com>
@ -748,13 +748,12 @@ (define-public node-lts
"0vcc132z7lkxnw5clmiz6sp6ccmw35pyb69hczphrig5frfmqkva"))
(modules '((guix build utils)))
(snippet
`(begin
'(begin
;; openssl.cnf is required for build.
(for-each delete-file-recursively
(find-files "deps/openssl"
(lambda (file stat)
(if (string-contains file "nodejs-openssl.cnf")
#f #t))))
(not (string-contains file "nodejs-openssl.cnf")))))
;; Remove bundled software, where possible
(for-each delete-file-recursively
'("deps/cares"
@ -764,8 +763,7 @@ (define-public node-lts
(substitute* "Makefile"
;; Remove references to bundled software.
(("deps/uv/uv.gyp") "")
(("deps/zlib/zlib.gyp") ""))
#t))))
(("deps/zlib/zlib.gyp") ""))))))
(arguments
(substitute-keyword-arguments (package-arguments node)
((#:configure-flags configure-flags)