summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gnu/services/desktop.scm18
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