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.

diff --git a/gnu/services/authentication.scm b/gnu/services/authentication.scm
index ab54aaf..6a9dab9 100644 (file)
--- a/gnu/services/authentication.scm
+++ b/gnu/services/authentication.scm
@@ -45,14 +45,18 @@
 (define-record-type* <fprintd-configuration>
   fprintd-configuration make-fprintd-configuration
   fprintd-configuration?
-  (ntp      fprintd-configuration-fprintd
+  (fprintd  fprintd-configuration-fprintd
             (default fprintd)))
 
+(define (fprintd-dbus-service config)
+  (list (fprintd-configuration-fprintd config)))
+
 (define fprintd-service-type
   (service-type (name 'fprintd)
                 (extensions
                  (list (service-extension dbus-root-service-type
-                                          list)))
+                                          fprintd-dbus-service)))
+                (default-value (fprintd-configuration))
                 (description
                  "Run fprintd, a fingerprint management daemon.")))