01/02: services: upower: Remove unused "upower" account.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 2da4f2dd8e04fbdd7c7c25274f1bafef50c983f8
Author: Ludovic Courtès <address@hidden>
Date:   Sun Oct 11 22:16:50 2015 +0200

    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 files changed, 1 insertions(+), 17 deletions(-)

diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm
index cf1ce82..12a48bd 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