diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2022-01-06 16:56:18 +0100 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2022-01-06 16:57:06 +0100 |
| commit | 55bf2d31e92b27b2a72116e10f4b0b832f7c9139 (patch) | |
| tree | 741e70524c1b96fc6729ddd90da488b55177ff57 /gnu | |
| parent | af1b5de6d8a54439ef3f7e1f5fe9a8e7d109972d (diff) | |
| download | guix-55bf2d31e92b27b2a72116e10f4b0b832f7c9139.tar.gz | |
gnu: mdadm-static: Use G-expressions.
* gnu/packages/linux.scm (mdadm-static)[arguments]: Rewrite as G-expressions. Reported by Christopher Baines <mail@cbaines.net>
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/packages/linux.scm | 25 |
1 files changed, 12 insertions, 13 deletions
diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index 3daad494e1..5e75caf821 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -5078,20 +5078,19 @@ arrays when needed.") (arguments (substitute-keyword-arguments (package-arguments mdadm) ((#:make-flags flags) - `(cons "LDFLAGS = -static" ,flags)) + #~(cons "LDFLAGS = -static" #$flags)) ((#:phases phases) - `(modify-phases ,phases - (add-after 'install 'remove-cruft - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (precious? (lambda (file) - (member file '("." ".." "sbin")))) - (directories (scandir out (negate precious?)))) - (with-directory-excursion out - (for-each delete-file-recursively directories) - (remove-store-references "sbin/mdadm") - (delete-file "sbin/mdmon") - #t)))))) + #~(modify-phases #$phases + (add-after 'install 'remove-cruft + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (precious? (lambda (file) + (member file '("." ".." "sbin")))) + (directories (scandir out (negate precious?)))) + (with-directory-excursion out + (for-each delete-file-recursively directories) + (remove-store-references "sbin/mdadm") + (delete-file "sbin/mdmon"))))))) ((#:modules modules %gnu-build-system-modules) `((ice-9 ftw) ,@modules)) ((#:strip-flags _ '()) |