janneke pushed a commit to branch wip-hurd-vm
in repository guix.
commit 43b143026143ca8cb42e0b1df9d2f6f1ba521f1d
Author: Jan (janneke) Nieuwenhuizen <[email protected]>
AuthorDate: Mon Apr 13 11:18:25 2020 +0200
services: Add guix-daemon-service as a Hurd 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 0582dff..3b28582 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)
@@ -43,6 +44,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) (hurd-user-processes-shepherd-service #f))
@@ -50,6 +52,17 @@
;;;
+;;; Bridge for guix-daemon.
+;;;
+
+(define <guix-configuration>
+ (@@ (gnu services base) <guix-configuration>))
+
+(define guix-shepherd-service
+ (@@ (gnu services base) guix-shepherd-service))
+
+
+;;;
;;; Dummy hurd-user-processes service, required for guix-daemon.
;;;
