services: postgresql: Use "/tmp" host directory.

[jackhill/guix/guix.git] / gnu / services / lirc.scm

diff --git a/gnu/services/lirc.scm b/gnu/services/lirc.scm
index 6ae6225..e95f542 100644 (file)
--- a/gnu/services/lirc.scm
+++ b/gnu/services/lirc.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2015 Alex Kost <alezost@gmail.com>
-;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2015, 2016 Ludovic Courtès <ludo@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -19,12 +19,15 @@
 
 (define-module (gnu services lirc)
   #:use-module (gnu services)
-  #:use-module (gnu services dmd)
+  #:use-module (gnu services shepherd)
   #:use-module (gnu packages lirc)
   #:use-module (guix gexp)
   #:use-module (guix records)
   #:use-module (ice-9 match)
-  #:export (lirc-service))
+  #:export (lirc-configuration
+            lirc-configuation?
+            lirc-service
+            lirc-service-type))
 
 ;;; Commentary:
 ;;;
@@ -48,10 +51,10 @@
       (use-modules (guix build utils))
       (mkdir-p "/var/run/lirc")))
 
-(define lirc-dmd-service
+(define lirc-shepherd-service
   (match-lambda
     (($ <lirc-configuration> lirc device driver config-file options)
-     (list (dmd-service
+     (list (shepherd-service
             (provision '(lircd))
             (documentation "Run the LIRC daemon.")
             (requirement '(user-processes))
@@ -73,8 +76,8 @@
 (define lirc-service-type
   (service-type (name 'lirc)
                 (extensions
-                 (list (service-extension dmd-root-service-type
-                                          lirc-dmd-service)
+                 (list (service-extension shepherd-root-service-type
+                                          lirc-shepherd-service)
                        (service-extension activation-service-type
                                           (const %lirc-activation))))))