06/07: gnu: pam-mount: Use G-expressions.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 63d2348aaab604f136c2858d38b9eb3ae169e777
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Oct 30 02:00:01 2022 +0100

    gnu: pam-mount: Use G-expressions.
    
    * gnu/packages/admin.scm (pam-mount)[arguments]:
    Rewrite as G-expressions.
---
 gnu/packages/admin.scm | 57 +++++++++++++++++++++++++-------------------------
 1 file changed, 29 insertions(+), 28 deletions(-)

diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index 8cd0331449..bea94a4842 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -4634,34 +4634,35 @@ tcpdump and snoop.")
         (base32 "0832nh2qf9pisgwnbgx6hkylx5d7i416l19y3ly4ifv7k1p7mxqa"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:configure-flags
-       (list (string-append "--with-slibdir=" %output "/lib")
-             (string-append "--with-ssbindir=" %output "/sbin"))
-       #:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'patch-file-names
-           (lambda* (#:key inputs outputs #:allow-other-keys)
-             (let ((out (assoc-ref outputs "out")))
-               (substitute* "src/mtcrypt.c"
-                 (("\"(mount|umount)\";" _ command)
-                  (format #f "\"~a\";"
-                          (search-input-file inputs
-                                             (string-append "bin/" command))))
-                 (("\"(fsck)\"," _ command)
-                  (format #f "\"~a\","
-                          (search-input-file inputs
-                                             (string-append "sbin/" 
command)))))
-               (substitute* "src/rdconf1.c"
-                 (("\"(mount|umount)\", \"" _ command)
-                  (format #f "\"~a\", \""
-                          (search-input-file inputs
-                                             (string-append "bin/" command))))
-                 (("\"(fsck)\", \"" _ command)
-                  (format #f "\"~a\", \""
-                          (search-input-file inputs
-                                             (string-append "sbin/" command))))
-                 (("\"pmvarrun\", \"")
-                  (format #f "\"~a/sbin/pmvarrun\", \"" out)))))))))
+     (list
+      #:configure-flags
+      #~(list (string-append "--with-slibdir=" #$output "/lib")
+              (string-append "--with-ssbindir=" #$output "/sbin"))
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'patch-file-names
+            (lambda* (#:key inputs outputs #:allow-other-keys)
+              (let ((out (assoc-ref outputs "out")))
+                (substitute* "src/mtcrypt.c"
+                  (("\"(mount|umount)\";" _ command)
+                   (format #f "\"~a\";"
+                           (search-input-file inputs
+                                              (string-append "bin/" command))))
+                  (("\"(fsck)\"," _ command)
+                   (format #f "\"~a\","
+                           (search-input-file inputs
+                                              (string-append "sbin/" 
command)))))
+                (substitute* "src/rdconf1.c"
+                  (("\"(mount|umount)\", \"" _ command)
+                   (format #f "\"~a\", \""
+                           (search-input-file inputs
+                                              (string-append "bin/" command))))
+                  (("\"(fsck)\", \"" _ command)
+                   (format #f "\"~a\", \""
+                           (search-input-file inputs
+                                              (string-append "sbin/" 
command))))
+                  (("\"pmvarrun\", \"")
+                   (format #f "\"~a/sbin/pmvarrun\", \"" out)))))))))
     (native-inputs
      (list perl pkg-config))
     (inputs