~ruther/guix-local

417175096aef38c6a72acbbcfdba636c723ab79e — Ludovic Courtès 11 years ago c8fa342
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.
4 files changed, 7 insertions(+), 3 deletions(-)

M gnu/services/avahi.scm
M gnu/services/base.scm
M gnu/services/dbus.scm
M gnu/services/networking.scm
M gnu/services/avahi.scm => gnu/services/avahi.scm +2 -1
@@ 96,7 96,8 @@ sockets."
                    (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")

M gnu/services/base.scm => gnu/services/base.scm +1 -0
@@ 472,6 472,7 @@ passed to @command{guix-daemon}."
             (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.

M gnu/services/dbus.scm => gnu/services/dbus.scm +2 -1
@@ 86,7 86,8 @@ and policy files.  For example, to allow avahi-daemon to use the system bus,
                      (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")

M gnu/services/networking.scm => gnu/services/networking.scm +2 -1
@@ 107,7 107,8 @@ policy) as the @code{tor} unprivileged user."
      (stop #~(make-kill-destructor))

      (user-groups   (list (user-group
                            (name "tor"))))
                            (name "tor")
                            (system? #t))))
      (user-accounts (list (user-account
                            (name "tor")
                            (group "tor")