ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-27 04:59:27 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: rewritefs: Use G-expressions.

Browse source 
* 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
1 changed files with 18 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
gnu/packages/file-systems.scm
View file

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