02/18: system: Simplify nsswitch binding.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 02be907a12dc291b02f6e895ca15f2fb20037185
Author: Bruno Victal <mirai@makinata.eu>
AuthorDate: Fri Mar 10 20:21:21 2023 +0000

    system: Simplify nsswitch binding.
    
    * gnu/system.scm (operating-system-etc-service): Simplify nsswitch binding.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/system.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/gnu/system.scm b/gnu/system.scm
index bb26d7c9a5..2947d1321f 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -1001,10 +1001,9 @@ the /etc directory."
 
          (hurd       (operating-system-hurd os))
          (issue      (plain-file "issue" (operating-system-issue os)))
-         (nsswitch   (operating-system-name-service-switch os))
-         (nsswitch   (and nsswitch
-                          (plain-file "nsswitch.conf"
-                                      (name-service-switch->string nsswitch))))
+         (nsswitch   (and=> (operating-system-name-service-switch os)
+                            (compose (cut plain-file "nsswitch.conf" <>)
+                                     name-service-switch->string)))
          (sudoers    (operating-system-sudoers-file os))
 
         ;; Startup file for POSIX-compliant login shells, which set system-wide