aboutsummaryrefslogtreecommitdiff
path: root/gnu/system/shadow.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/system/shadow.scm')
-rw-r--r--gnu/system/shadow.scm13
1 files changed, 9 insertions, 4 deletions
diff --git a/gnu/system/shadow.scm b/gnu/system/shadow.scm
index d9f13271d8..699331e911 100644
--- a/gnu/system/shadow.scm
+++ b/gnu/system/shadow.scm
@@ -61,7 +61,12 @@
user-group-name
user-group-password
user-group-id
- user-group-system?)
+ user-group-system?
+
+ user-extra-groups
+ user-extra-groups?
+ user-extra-groups-user
+ user-extra-groups-groups)
#:export (%default-bashrc
%default-bash-profile
@@ -493,10 +498,10 @@ the /etc/skel directory for those."
(define account-service-type
(service-type (name 'account)
- ;; Concatenate <user-account>, <user-group>, and skeleton
- ;; lists.
+ ;; Concatenate <user-account>, <user-group>,
+ ;; <user-extra-groups> and skeleton lists.
+ (extend (compose merge-extra-groups-data append))
(compose concatenate)
- (extend append)
(extensions
(list (service-extension activation-service-type