diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-10-11 22:16:50 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-10-11 22:28:10 +0200 |
| commit | 2da4f2dd8e04fbdd7c7c25274f1bafef50c983f8 (patch) | |
| tree | 366a4feaa502c5a64c86d448199f26ccd2723ead | |
| parent | c23c50c734d44e8426fbffba9c5d7a250e8d025a (diff) | |
| download | guix-2da4f2dd8e04fbdd7c7c25274f1bafef50c983f8.tar guix-2da4f2dd8e04fbdd7c7c25274f1bafef50c983f8.tar.gz | |
services: upower: Remove unused "upower" account.
* gnu/services/desktop.scm (%upower-accounts): Remove.
(%upower-activation): Remove references to the "upower" account.
(upower-service-type): Remove extension of ACCOUNT-SERVICE-TYPE.
| -rw-r--r-- | gnu/services/desktop.scm | 18 |
1 files changed, 1 insertions, 17 deletions
diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm index cf1ce8269d..12a48bd5ee 100644 --- a/gnu/services/desktop.scm +++ b/gnu/services/desktop.scm @@ -151,24 +151,10 @@ is set to @var{value} when the bus daemon launches it." ('power-off "PowerOff")) "\n"))))) -(define %upower-accounts ;XXX: useful? - (list (user-group (name "upower") (system? #t)) - (user-account - (name "upower") - (group "upower") - (system? #t) - (comment "UPower daemon user") - (home-directory "/var/empty") - (shell #~(string-append #$shadow "/sbin/nologin"))))) - (define %upower-activation #~(begin (use-modules (guix build utils)) - (mkdir-p "/var/lib/upower") - (let ((user (getpwnam "upower"))) - (chown "/var/lib/upower" - (passwd:uid user) (passwd:gid user))))) - + (mkdir-p "/var/lib/upower"))) (define (upower-dbus-service config) (list (wrapped-dbus-service (upower-configuration-upower config) @@ -199,8 +185,6 @@ is set to @var{value} when the bus daemon launches it." upower-dbus-service) (service-extension dmd-root-service-type upower-dmd-service) - (service-extension account-service-type - (const %upower-accounts)) (service-extension activation-service-type (const %upower-activation)) (service-extension udev-service-type |