me/guix
Archived
1
0
Fork 0
Code Activity

services: upower: Remove unused "upower" account.

Browse source 
* gnu/services/desktop.scm (%upower-accounts): Remove.
  (%upower-activation): Remove references to the "upower" account.
  (upower-service-type): Remove extension of ACCOUNT-SERVICE-TYPE.
This commit is contained in:
Ludovic Courtès 2015-10-11 22:16:50 +02:00
parent c23c50c734
commit 2da4f2dd8e
1 changed files with 1 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
gnu/services/desktop.scm
View file

@ -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