diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2023-07-23 02:00:00 +0200 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2023-07-23 02:00:00 +0200 |
| commit | 4cc5b2a44e5e39f15918e19e69752102c5199df1 (patch) | |
| tree | ed7dc81f5c193c5080b33c7a2ee2bb35892a7e4f /gnu/packages/file-systems.scm | |
| parent | c52dfda32aad686c466eeaac27ec3acd0199ba5e (diff) | |
| download | guix-patches-4cc5b2a44e5e39f15918e19e69752102c5199df1.tar guix-patches-4cc5b2a44e5e39f15918e19e69752102c5199df1.tar.gz | |
gnu: rewritefs: Use G-expressions.
* gnu/packages/file-systems.scm (rewritefs)[arguments]:
Rewrite as G-expressions.
Diffstat (limited to 'gnu/packages/file-systems.scm')
| -rw-r--r-- | gnu/packages/file-systems.scm | 33 |
1 files changed, 18 insertions, 15 deletions
diff --git a/gnu/packages/file-systems.scm b/gnu/packages/file-systems.scm index 41f928fd2c..4589db965d 100644 --- a/gnu/packages/file-systems.scm +++ b/gnu/packages/file-systems.scm @@ -1786,21 +1786,24 @@ local file system using FUSE.") (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 |