services: Use system groups where applicable.

* gnu/services/avahi.scm (avahi-service): Add 'system?' field to
  'user-group' form.
* gnu/services/base.scm (guix-service): Likewise.
* gnu/services/dbus.scm (dbus-service): Likewise.
* gnu/services/networking.scm (tor-service): Likewise.
This commit is contained in:
Ludovic Courtès 2014-07-25 00:15:46 +02:00
parent c8fa34265d
commit 417175096a
4 changed files with 7 additions and 3 deletions

View file

@ -96,7 +96,8 @@ (define* (avahi-service #:key (avahi avahi)
(mkdir-p "/var/run/avahi-daemon")))
(user-groups (list (user-group
(name "avahi"))))
(name "avahi")
(system? #t))))
(user-accounts (list (user-account
(name "avahi")
(group "avahi")

View file

@ -472,6 +472,7 @@ (define activate
(user-accounts accounts)
(user-groups (list (user-group
(name builder-group)
(system? #t)
;; Use a fixed GID so that we can create the
;; store with the right owner.

View file

@ -86,7 +86,8 @@ (define* (dbus-service services #:key (dbus dbus))
(string-append "--config-file=" #$conf "/system.conf"))))
(stop #~(make-kill-destructor))
(user-groups (list (user-group
(name "messagebus"))))
(name "messagebus")
(system? #t))))
(user-accounts (list (user-account
(name "messagebus")
(group "messagebus")

View file

@ -107,7 +107,8 @@ (define* (tor-service #:key (tor tor))
(stop #~(make-kill-destructor))
(user-groups (list (user-group
(name "tor"))))
(name "tor")
(system? #t))))
(user-accounts (list (user-account
(name "tor")
(group "tor")