guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 979043e0dd2d86ede60fd4882cda4cc1a35dee88
Author: Cayetano Santos <[email protected]>
AuthorDate: Tue Oct 14 08:54:57 2025 +0200
gnu: uuu: Improve style.
* gnu/packages/flashing-tools.scm (uuu)[arguments]: Use G-Expressions.
Change-Id: I121de8ce3e980f3200d52c406519502ed2d59bbf
Signed-off-by: Ekaitz Zarraga <[email protected]>
---
gnu/packages/flashing-tools.scm | 41 +++++++++++++++++++++--------------------
1 file changed, 21 insertions(+), 20 deletions(-)
diff --git a/gnu/packages/flashing-tools.scm b/gnu/packages/flashing-tools.scm
index a0b1c183c5..a62be34053 100644
--- a/gnu/packages/flashing-tools.scm
+++ b/gnu/packages/flashing-tools.scm
@@ -724,30 +724,31 @@ formats, and can perform many different manipulations.")
(sha256
(base32
"0jil04khy0lxllhapdm86yyq9i3xqrlvmf6g5r53qmq9jyvxwlhv"))))
+ (build-system cmake-build-system)
(arguments
- `(#:tests? #f ; no tests
- #:modules ((guix build utils)
+ (list
+ #:tests? #f ; no tests
+ #:modules '((guix build utils)
(ice-9 popen)
(srfi srfi-26)
(guix build cmake-build-system))
- #:phases
- (modify-phases %standard-phases
- (add-before 'configure 'fix-version-gen
- (lambda _
- (call-with-output-file ".tarball-version"
- (lambda (port)
- (display ,version port)))))
- (add-after 'install 'install-udev-rules
- (lambda* (#:key outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (uuu (string-append out "/bin/uuu"))
- (pipe (open-pipe* OPEN_READ uuu "-udev"))
- (rules
- (string-append out "/lib/udev/rules.d/70-uuu.rules")))
- (mkdir-p (string-append out "/lib/udev/rules.d"))
- (call-with-output-file rules
- (cut dump-port pipe <>))))))))
- (build-system cmake-build-system)
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-before 'configure 'fix-version-gen
+ (lambda _
+ (call-with-output-file ".tarball-version"
+ (lambda (port)
+ (display #$version port)))))
+ (add-after 'install 'install-udev-rules
+ (lambda _
+ (let* ((uuu (string-append #$output "/bin/uuu"))
+ (pipe (open-pipe* OPEN_READ uuu "-udev"))
+ (rules
+ (string-append
+ #$output "/lib/udev/rules.d/70-uuu.rules")))
+ (mkdir-p (string-append #$output "/lib/udev/rules.d"))
+ (call-with-output-file rules
+ (cut dump-port pipe <>))))))))
(native-inputs
(list pkg-config))
(inputs
