17/36: services: hurd: Add dummy syslog.

[guix-commits]

janneke pushed a commit to branch wip-hurd-vm
in repository guix.

commit c47fd1c5c1a210495daca9be62294886fec381f8
Author: Jan (janneke) Nieuwenhuizen <address@hidden>
AuthorDate: Mon Apr 13 22:44:45 2020 +0200

    services: hurd: Add dummy syslog.
    
    * gnu/services/hurd.scm (<syslog-configuration>): New variable.
    (syslog-shepherd-service): New function.
    (hurd-service->shepherd-service): Use them to add entry for syslog.
---
 gnu/services/hurd.scm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/gnu/services/hurd.scm b/gnu/services/hurd.scm
index 318b149..8e0ab10 100644
--- a/gnu/services/hurd.scm
+++ b/gnu/services/hurd.scm
@@ -26,6 +26,7 @@
   #:use-module (guix modules)
   #:use-module (guix records)
   #:use-module (srfi srfi-1)
+  #:use-module (srfi srfi-26)
   #:use-module (ice-9 match)
   #:export (hurd-console-configuration
             hurd-console-service-type
@@ -46,6 +47,7 @@
       (($ <guix-configuration>) (guix-shepherd-service config))
       (($ <hurd-console-configuration>) (hurd-console-shepherd-service config))
       (($ <hurd-ttys-configuration>) (hurd-ttys-shepherd-service config))
+      (($ <syslog-configuration>) (syslog-shepherd-service config))
       (('user-processes) (user-processes-shepherd-service '()))
       (_ '()))))
 
@@ -65,6 +67,19 @@
 
 
 ;;;
+;;; Bridge for syslog.
+;;;
+
+(define <syslog-configuration>
+  (@@ (gnu services base) <syslog-configuration>))
+
+(define (syslog-shepherd-service config)
+  (append-map (cut <> config)
+              (map service-extension-compute
+                   (service-type-extensions syslog-service-type))))
+
+
+;;;
 ;;; Bridge for user-processes service, required for guix-daemon.
 ;;;