From 0682f084635cdc289aabafc4b2583639e00a28b3 Mon Sep 17 00:00:00 2001
From: Danny Milosavljevic <dannym@scratchpost.org>
Date: Wed, 17 Apr 2019 08:47:54 +0200
Subject: [PATCH] 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.
---
gnu/services/authentication.scm | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/gnu/services/authentication.scm b/gnu/services/authentication.scm
index ab54aaf698a..6a9dab91859 100644
--- a/gnu/services/authentication.scm
+++ b/gnu/services/authentication.scm
@@ -45,14 +45,18 @@ (define-module (gnu services authentication)
(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.")))
--
GitLab