From ebf95b5a77cc0ae8384d22a0cd63d929edffc178 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 17 Jan 2024 11:08:35 +0100 Subject: gnu: shadow: Remove input labels. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/admin.scm (shadow)[arguments]: In ‘set-runtime-shell’, use ‘search-input-file’. [inputs]: Remove labels. Change-Id: I1ce9d93f425c77f901d8e21b37d1a069824cab45 --- gnu/packages/admin.scm | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm index 94c3a94765..927afb97b0 100644 --- a/gnu/packages/admin.scm +++ b/gnu/packages/admin.scm @@ -1052,9 +1052,7 @@ hostname.") ,@(if (%current-target-system) '((add-before 'configure 'set-runtime-shell (lambda* (#:key inputs #:allow-other-keys) - (let ((shell (string-append - (assoc-ref inputs "bash") - "/bin/bash"))) + (let ((shell (search-input-file inputs "/bin/bash"))) (setenv "RUNTIME_SHELL" shell) (substitute* "configure.ac" (("\\$SHELL") @@ -1085,12 +1083,12 @@ hostname.") (delete-file (string-append bin "/groups")) (for-each delete-file (find-files man "^groups\\.")))))))) (inputs - `(,@(if (target-hurd?) - '() - `(("linux-pam" ,linux-pam))) - ,@(if (%current-target-system) - `(("bash" ,bash-minimal)) - '()))) + (append (if (target-hurd?) + '() + (list linux-pam)) + (if (%current-target-system) + (list bash-minimal) + '()))) (home-page "https://github.com/shadow-maint/shadow") (synopsis "Authentication-related tools such as passwd, su, and login") (description -- cgit v1.2.3