diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-05-20 20:41:02 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-05-21 00:15:08 +0200 |
| commit | 48c748226e2a94d2dec9bfdf84601455f00d6f5e (patch) | |
| tree | 3df2c485a5e2aaefb9c257958a94c3d871a87183 | |
| parent | dd19b191d6e0c97cd116434e92a149e9d279a501 (diff) | |
| download | guix-48c748226e2a94d2dec9bfdf84601455f00d6f5e.tar.gz | |
Revert "installer: user: Remove useless filtering."
This reverts commit c2125e59d0774cda3e559adeb056459a5f23586b. Fixes <https://issues.guix.gnu.org/55361>.
| -rw-r--r-- | gnu/installer/user.scm | 9 |
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)))) |