[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: services: fprintd: Fix service.
From: |
guix-commits |
Subject: |
01/01: services: fprintd: Fix service. |
Date: |
Wed, 17 Apr 2019 02:51:18 -0400 (EDT) |
dannym pushed a commit to branch master
in repository guix.
commit 0682f084635cdc289aabafc4b2583639e00a28b3
Author: Danny Milosavljevic <address@hidden>
Date: Wed Apr 17 08:47:54 2019 +0200
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 ab54aaf..6a9dab9 100644
--- 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.")))