summaryrefslogtreecommitdiff
path: root/gnu/installer
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-05-20 20:41:02 +0200
committerLudovic Courtès <ludo@gnu.org>2022-05-21 00:15:08 +0200
commit48c748226e2a94d2dec9bfdf84601455f00d6f5e (patch)
tree3df2c485a5e2aaefb9c257958a94c3d871a87183 /gnu/installer
parentdd19b191d6e0c97cd116434e92a149e9d279a501 (diff)
Revert "installer: user: Remove useless filtering."
This reverts commit c2125e59d0774cda3e559adeb056459a5f23586b. Fixes <https://issues.guix.gnu.org/55361>.
Diffstat (limited to 'gnu/installer')
-rw-r--r--gnu/installer/user.scm9
1 files changed, 7 insertions, 2 deletions
diff --git a/gnu/installer/user.scm b/gnu/installer/user.scm
index b042c9790d..c894a91dc8 100644
--- 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))))