From 0682f084635cdc289aabafc4b2583639e00a28b3 Mon Sep 17 00:00:00 2001 From: Danny Milosavljevic Date: Wed, 17 Apr 2019 08:47:54 +0200 Subject: services: fprintd: Fix service. * gnu/services/authentication.scm ()[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 ab54aaf698..6a9dab9185 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 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."))) -- cgit v1.2.3