ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-27 04:59:27 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Revert "installer: user: Remove useless filtering."

Browse source 
This reverts commit c2125e59d0.

Fixes <https://issues.guix.gnu.org/55361>.
This commit is contained in:
Ludovic Courtès 2022-05-20 20:41:02 +02:00
parent dd19b191d6
commit 48c748226e
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/installer/user.scm
View file

@ -69,5 +69,10 @@ (define (user->sexp user)
(supplementary-groups '("wheel" "netdev" (supplementary-groups '("wheel" "netdev"
"audio" "video")))) "audio" "video"))))
`((users (cons* ,@(map user->sexp users) `((users (cons*
%base-user-accounts)))) ,@(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))))