branch master updated: gnu: mdadm-static: Use G-expressions.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

nckx pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 55bf2d31e9 gnu: mdadm-static: Use G-expressions.
55bf2d31e9 is described below

commit 55bf2d31e92b27b2a72116e10f4b0b832f7c9139
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Thu Jan 6 16:56:18 2022 +0100

    gnu: mdadm-static: Use G-expressions.
    
    * gnu/packages/linux.scm (mdadm-static)[arguments]:
    Rewrite as G-expressions.
    
    Reported by Christopher Baines <mail@cbaines.net>
---
 gnu/packages/linux.scm | 25 ++++++++++++-------------
 1 file 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 _ '())