aboutsummaryrefslogtreecommitdiff
path: root/gnu/installer/user.scm
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2022-04-04 16:38:09 +0200
committerMathieu Othacehe <othacehe@gnu.org>2022-04-06 21:19:08 +0200
commitc2125e59d0774cda3e559adeb056459a5f23586b (patch)
tree2aac6c89952687cfd59266623dad06d0c44dc773 /gnu/installer/user.scm
parent2bfb27af56e2e1ef1699c8ec63d3badeb211b58e (diff)
downloadguix-c2125e59d0774cda3e559adeb056459a5f23586b.tar
guix-c2125e59d0774cda3e559adeb056459a5f23586b.tar.gz
installer: user: Remove useless filtering.
* gnu/installer/user.scm (users->configuration): Remove root account filtering that is now performed in the "run-user-add-page" procedure.
Diffstat (limited to 'gnu/installer/user.scm')
-rw-r--r--gnu/installer/user.scm9
1 files changed, 2 insertions, 7 deletions
diff --git a/gnu/installer/user.scm b/gnu/installer/user.scm
index c894a91dc8..b042c9790d 100644
--- a/gnu/installer/user.scm
+++ b/gnu/installer/user.scm
@@ -69,10 +69,5 @@
(supplementary-groups '("wheel" "netdev"
"audio" "video"))))
- `((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))))
+ `((users (cons* ,@(map user->sexp users)
+ %base-user-accounts))))