From 5d1a128f64baeadf8ae633a65a922d510b40f10f Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Mon, 9 Oct 2023 11:18:02 -0400 Subject: 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(-) (limited to 'gnu') 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") -- cgit v1.2.3