me
/
guix
Archived
1
0
Fork 0
Code

services: Do not warn, when duplicate users are eq?. 

* gnu/system/shadow.scm (account-activation): Delete duplicate (eq?) users
and groups before transforming them to specs and asserting, that names are
unique.
master
Leo Prikler 2021-01-14 13:58:00 +01:00
parent 239af11a69
commit 6c5112dbb3
No known key found for this signature in database
GPG Key ID: 442A84B8C70E2F87
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnu/system/shadow.scm
View File

@ -321,13 +321,13 @@ of user '~a' is undeclared")
<user-group> objects. Raise an error if a user account refers to a undefined
group."
(define accounts
(filter user-account? accounts+groups))
(delete-duplicates (filter user-account? accounts+groups) eq?))
(define user-specs
(map user-account->gexp accounts))
(define groups
(filter user-group? accounts+groups))
(delete-duplicates (filter user-group? accounts+groups) eq?))
(define group-specs
(map user-group->gexp groups))