02/63: gnu: acl: Remove labels and trailing #t.

[guix-commits]

apteryx pushed a commit to branch core-updates
in repository guix.

commit a0b4459915e18e10090c354068dd1d8fc65e8c59
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Mon Oct 9 11:18:02 2023 -0400

    gnu: acl: Remove labels and trailing #t.
    
    * gnu/packages/acl.scm (acl): Remove labels and trailing #t.
    
    Change-Id: I01b3d697da78ae1294b76d1073dbfd0ffe37fe31
---
 gnu/packages/acl.scm | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/acl.scm b/gnu/packages/acl.scm
index 3e97332243..6d78847680 100644
--- a/gnu/packages/acl.scm
+++ b/gnu/packages/acl.scm
@@ -66,13 +66,11 @@
                (ftw "." (lambda (file stat flag)
                           (unless (<= early-1980 (stat:mtime stat))
                             (utime file early-1980 early-1980))
-                          #t))
-               #t)))
+                          #t)))))
          (add-after 'build 'patch-exec-bin-sh
            (lambda _
              (substitute* "test/run"
-               (("/bin/sh") (which "sh")))
-             #t))
+               (("/bin/sh") (which "sh")))))
          (add-before 'check 'patch-tests
            (lambda _
              ;; The coreutils do not have an ACL bit to remove from their
@@ -84,12 +82,9 @@
              (substitute* "Makefile.in"
                ((".*test/misc\\.test.*") "")
                ((".*test/cp\\.test.*") "")
-               ((".*test/setfacl-X\\.test.*") ""))
-             #t)))))
+               ((".*test/setfacl-X\\.test.*") "")))))))
     (inputs (list attr))
-    (native-inputs
-     `(("gettext" ,gettext-minimal)
-       ("perl" ,perl)))
+    (native-inputs (list gettext-minimal perl))
     (home-page "https://savannah.nongnu.org/projects/acl";)
     (synopsis
      "Library and tools for manipulating access control lists")