Revert "installer: user: Remove useless filtering."

This reverts commit c2125e59d0. Fixes <https://issues.guix.gnu.org/55361>.
2022-05-20 20:41:02 +02:00 · 2022-05-20 20:41:02 +02:00 · 48c748226e
commit 48c748226e
parent dd19b191d6
1 changed files with 7 additions and 2 deletions
--- a/gnu/installer/user.scm
+++ b/gnu/installer/user.scm
@ -69,5 +69,10 @@
      (supplementary-groups '("wheel" "netdev"
                              "audio" "video"))))

-  `((users (cons* ,@(map user->sexp users)
-                  %base-user-accounts))))
+  `((users (cons*
+            ,@(filter-map (lambda (user)
+                            ;; Do not emit a 'user-account' form for "root".
+                            (and (not (string=? (user-name user) "root"))
+                                 (user->sexp user)))
+                          users)
+            %base-user-accounts))))