mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-12 06:06:53 -05:00
services: fprintd: Fix service.
* gnu/services/authentication.scm (<fprintd-configuration>)[ntp]: Rename to... [fprintd]: ...this. (fprintd-dbus-service): New procedure. (fprintd-service-type): Use it. [default-value]: Add value.
This commit is contained in:
parent
38dd8b6058
commit
0682f08463
1 changed files with 6 additions and 2 deletions
|
@ -45,14 +45,18 @@ (define-module (gnu services authentication)
|
||||||
(define-record-type* <fprintd-configuration>
|
(define-record-type* <fprintd-configuration>
|
||||||
fprintd-configuration make-fprintd-configuration
|
fprintd-configuration make-fprintd-configuration
|
||||||
fprintd-configuration?
|
fprintd-configuration?
|
||||||
(ntp fprintd-configuration-fprintd
|
(fprintd fprintd-configuration-fprintd
|
||||||
(default fprintd)))
|
(default fprintd)))
|
||||||
|
|
||||||
|
(define (fprintd-dbus-service config)
|
||||||
|
(list (fprintd-configuration-fprintd config)))
|
||||||
|
|
||||||
(define fprintd-service-type
|
(define fprintd-service-type
|
||||||
(service-type (name 'fprintd)
|
(service-type (name 'fprintd)
|
||||||
(extensions
|
(extensions
|
||||||
(list (service-extension dbus-root-service-type
|
(list (service-extension dbus-root-service-type
|
||||||
list)))
|
fprintd-dbus-service)))
|
||||||
|
(default-value (fprintd-configuration))
|
||||||
(description
|
(description
|
||||||
"Run fprintd, a fingerprint management daemon.")))
|
"Run fprintd, a fingerprint management daemon.")))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue