gnu: rewritefs: Use G-expressions.

* gnu/packages/file-systems.scm (rewritefs)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2023-07-23 02:00:00 +02:00
parent c52dfda32a
commit 4cc5b2a44e
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

@ -1786,21 +1786,24 @@ (define-public rewritefs
(base32 "1w2rik0lhqm3wr68x51zs45gqfx79l7fi4p0sqznlfq7sz5s8xxn"))))
(build-system gnu-build-system)
(arguments
`(#:modules ((srfi srfi-26)
,@%gnu-build-system-modules)
#:make-flags
(list (string-append "PREFIX=" (assoc-ref %outputs "out")))
#:test-target "test"
#:tests? #f ; all require a kernel with FUSE loaded
#:phases
(modify-phases %standard-phases
(delete 'configure) ; no configure script
(add-after 'install 'install-examples
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(doc (string-append out "/share/doc/" ,name "-" ,version)))
(for-each (cut install-file <> (string-append doc "/examples"))
(find-files "." "^config\\."))))))))
(list
#:modules
'((guix build gnu-build-system)
(guix build utils)
(srfi srfi-26))
#:make-flags
#~(list (string-append "PREFIX=" #$output))
#:test-target "test"
#:tests? #f ; all require a kernel with FUSE loaded
#:phases
#~(modify-phases %standard-phases
(delete 'configure) ; no configure script
(add-after 'install 'install-examples
(lambda _
(let ((doc (string-append #$output "/share/doc/"
#$name "-" #$version)))
(for-each (cut install-file <> (string-append doc "/examples"))
(find-files "." "^config\\."))))))))
(native-inputs
(list pkg-config))
(inputs