ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* gnu/system/shadow.scm (account-activation): Delete duplicate (eq?) users
and groups before transforming them to specs and asserting, that names are
unique.
This commit is contained in:
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 @@ (define (account-activation accounts+groups)
<user-group> objects. Raise an error if a user account refers to a undefined <user-group> objects. Raise an error if a user account refers to a undefined
group." group."
(define accounts (define accounts
(filter user-account? accounts+groups)) (delete-duplicates (filter user-account? accounts+groups) eq?))
(define user-specs (define user-specs
(map user-account->gexp accounts)) (map user-account->gexp accounts))
(define groups (define groups
(filter user-group? accounts+groups)) (delete-duplicates (filter user-group? accounts+groups) eq?))
(define group-specs (define group-specs
(map user-group->gexp groups)) (map user-group->gexp groups))