diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2022-04-04 16:38:09 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2022-04-06 21:19:08 +0200 |
| commit | c2125e59d0774cda3e559adeb056459a5f23586b (patch) | |
| tree | 2aac6c89952687cfd59266623dad06d0c44dc773 | |
| parent | 2bfb27af56e2e1ef1699c8ec63d3badeb211b58e (diff) | |
| download | 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.
| -rw-r--r-- | gnu/installer/user.scm | 9 |
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)))) |