gnu: unionfs-fuse-static: Update package style.

* gnu/packages/linux.scm (unionfs-fuse/static)[source]:
Rewrite snippet as a G-expression.
[arguments]: Likewise.  Don't explicitly return #t from phases.
[inputs]: Remove input labels.

gnu/packages/linux.scm

@@ -3889,34 +3889,34 @@ UnionFS-FUSE additionally supports copy-on-write.")
   (package (inherit unionfs-fuse)
     (synopsis "User-space union file system (statically linked)")
     (name (string-append (package-name unionfs-fuse) "-static"))
-    (source (origin (inherit (package-source unionfs-fuse))
+    (source
+     (origin
+       (inherit (package-source unionfs-fuse))
        (modules '((guix build utils)))
        (snippet
-               '(begin
+        #~(begin
             ;; Add -ldl to the libraries, because libfuse.a needs that.
             (substitute* "src/CMakeLists.txt"
               (("target_link_libraries(.*)\\)" _ libs)
                (string-append "target_link_libraries"
-                                    libs " dl)")))
-                  #t))))
+                              libs " dl)")))))))
     (arguments
-     '(#:tests? #f
-       #:configure-flags '("-DCMAKE_EXE_LINKER_FLAGS=-static")
+     (list
+      #:tests? #f
+      #:configure-flags
+      #~(list "-DCMAKE_EXE_LINKER_FLAGS=-static")
       #:phases
-       (modify-phases %standard-phases
+      #~(modify-phases %standard-phases
           (add-after 'install 'post-install
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (exe (string-append out "/bin/unionfs")))
+            (lambda _
               ;; By default, 'unionfs' keeps references to
               ;; $glibc/share/locale and similar stuff.  Remove them.
-               (remove-store-references exe)
+              (remove-store-references (string-append #$output "/bin/unionfs"))
 
               ;; 'unionfsctl' has references to glibc as well.  Since
               ;; we don't need it, remove it.
-               (delete-file (string-append out "/bin/unionfsctl"))
-               #t))))))
-    (inputs `(("fuse" ,fuse-static)))))
+              (delete-file (string-append #$output "/bin/unionfsctl")))))))
+    (inputs (list fuse-static))))
 
 (define-public sshfs
   (package