05/36: HACK services: Add guix-daemon-service as a Hurd service.

[guix-commits]

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

commit eae1b600abb170376581fa16d98abe237b6072d5
Author: Jan (janneke) Nieuwenhuizen <address@hidden>
AuthorDate: Mon Apr 13 11:18:25 2020 +0200

    HACK services: Add guix-daemon-service as a Hurd service.
    
    XXX Remove this after dropping hurd-service->shepherd-service.
    
    * gnu/services/hurd.scm (<guix-configuration>, guix-shepherd-service): New
    variable.
    (hurd-service->shepherd-service): Add entry.
---
 gnu/services/hurd.scm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/gnu/services/hurd.scm b/gnu/services/hurd.scm
index d0248c6..c193dbf 100644
--- a/gnu/services/hurd.scm
+++ b/gnu/services/hurd.scm
@@ -19,6 +19,7 @@
 (define-module (gnu services hurd)
   #:use-module (gnu packages hurd)
   #:use-module (gnu services)
+  #:use-module (gnu services base)
   #:use-module (gnu services shepherd)
   #:use-module (gnu system shadow)
   #:use-module (guix gexp)
@@ -42,6 +43,7 @@
 (define (hurd-service->shepherd-service service)
   (let ((config (service-value service)))
     (match config
+      (($ <guix-configuration>) (guix-shepherd-service config))
       (($ <hurd-console-configuration>) (hurd-console-shepherd-service config))
       (($ <hurd-ttys-configuration>) (hurd-ttys-shepherd-service config))
       (('user-processes) (user-processes-shepherd-service '()))
@@ -52,6 +54,17 @@
 
 
 ;;;
+;;; Bridge for guix-daemon.
+;;;
+
+(define <guix-configuration>
+  (@@ (gnu services base) <guix-configuration>))
+
+(define guix-shepherd-service
+  (@@ (gnu services base) guix-shepherd-service))
+
+
+;;;
 ;;; Bridge for user-processes service, required for guix-daemon.
 ;;;