activation: Only create groups that do not exist yet.
Before that the effect would be to re-create groups at each boot, and thus remove any members of the groups. * guix/build/activation.scm (activate-users+groups): Call 'add-group' only when (getgrname name) fails.
This commit is contained in:
parent
185f669109
commit
e2fcc23a3a
|
@ -126,7 +126,8 @@ numeric gid or #f."
|
|||
;; Then create the groups.
|
||||
(for-each (match-lambda
|
||||
((name password gid)
|
||||
(add-group name #:gid gid #:password password)))
|
||||
(unless (false-if-exception (getgrnam name))
|
||||
(add-group name #:gid gid #:password password))))
|
||||
groups)
|
||||
|
||||
;; Finally create the other user accounts.
|
||||
|
|
Loading…
Reference in New Issue