gnu: ddcci-driver-linux: Use G-expressions.

* gnu/packages/linux.scm (ddcci-driver-linux)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2021-12-26 08:02:25 +01:00
parent f780660ab7
commit cfe6b36420
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

@ -1484,23 +1484,23 @@ (define-public ddcci-driver-linux
(base32 "1lww3mnqhxqzj0qbxzbwbq93v9zw49myp7p9ib873a5izbq8nadi")))) (base32 "1lww3mnqhxqzj0qbxzbwbq93v9zw49myp7p9ib873a5izbq8nadi"))))
(build-system linux-module-build-system) (build-system linux-module-build-system)
(arguments (arguments
`(#:tests? #f ; no tests (list #:tests? #f ; no tests
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(replace 'build (replace 'build
(lambda args (lambda args
(for-each (for-each
(lambda (module) (lambda (module)
(with-directory-excursion module (with-directory-excursion module
(apply (assoc-ref %standard-phases 'build) args))) (apply (assoc-ref %standard-phases 'build) args)))
'("ddcci" "ddcci-backlight")))) '("ddcci" "ddcci-backlight"))))
(replace 'install (replace 'install
(lambda args (lambda args
(for-each (for-each
(lambda (module) (lambda (module)
(with-directory-excursion module (with-directory-excursion module
(apply (assoc-ref %standard-phases 'install) args))) (apply (assoc-ref %standard-phases 'install) args)))
'("ddcci" "ddcci-backlight"))))))) '("ddcci" "ddcci-backlight")))))))
(home-page "https://gitlab.com/ddcci-driver-linux/ddcci-driver-linux") (home-page "https://gitlab.com/ddcci-driver-linux/ddcci-driver-linux")
(synopsis "Pair of Linux kernel drivers for DDC/CI monitors") (synopsis "Pair of Linux kernel drivers for DDC/CI monitors")
(description "This package provides two Linux kernel drivers, ddcci and (description "This package provides two Linux kernel drivers, ddcci and