gnu: xfs_repair/static: Improve style.

* gnu/packages/linux.scm (xfs_repair/static): Run guix style.
[arguments]: Migrate to G-expressions.
[inputs]: Drop input labels.

Change-Id: If724a19df2ed855e766c9659149ffcf3bf332a6d
Signed-off-by: Vagrant Cascadian <vagrant@debian.org>

1 files changed, 11 insertions, 12 deletions

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 9e0b8d5e219..d71c2331351 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -11241,18 +11241,17 @@ file systems.")
     (source #f)
     (build-system trivial-build-system)
     (arguments
-     `(#:modules ((guix build utils))
-       #:builder
-       (begin
-         (use-modules (guix build utils))
-         (let* ((xfsprogs (assoc-ref %build-inputs "xfsprogs"))
-                (out      (assoc-ref %outputs "out"))
-                (sbin     (string-append out "/sbin")))
-           (install-file (string-append xfsprogs "/sbin/xfs_repair") sbin)
-           (with-directory-excursion sbin
-             (remove-store-references "xfs_repair"))))))
-    (inputs
-     `(("xfsprogs" ,xfsprogs/static)))
+     (list
+      #:modules `((guix build utils))
+      #:builder
+      #~(begin
+          (use-modules (guix build utils))
+          (let ((sbin (string-append #$output "/sbin")))
+            (install-file (search-input-file %build-inputs "/sbin/xfs_repair")
+                          sbin)
+            (with-directory-excursion sbin
+              (remove-store-references "xfs_repair"))))))
+    (inputs (list xfsprogs/static))
     (home-page (package-home-page xfsprogs/static))
     (synopsis "Statically linked @command{xfs_repair} from xfsprogs")
     (description