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