From 2da4f2dd8e04fbdd7c7c25274f1bafef50c983f8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 11 Oct 2015 22:16:50 +0200 Subject: [PATCH] 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. --- gnu/services/desktop.scm | 18 +----------------- 1 file changed, 1 insertion(+), 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