summaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-10-11 22:16:50 +0200
committerLudovic Courtès <ludo@gnu.org>2015-10-11 22:28:10 +0200
commit2da4f2dd8e04fbdd7c7c25274f1bafef50c983f8 (patch)
tree366a4feaa502c5a64c86d448199f26ccd2723ead /gnu/services
parentc23c50c734d44e8426fbffba9c5d7a250e8d025a (diff)
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.
Diffstat (limited to 'gnu/services')
-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