10/36: HACK services: Add openssh-service as a Hurd service.

[guix-commits]

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

commit d61ad3de9d9f1330271f471c9f66c79cec71073a
Author: Jan (janneke) Nieuwenhuizen <address@hidden>
AuthorDate: Sun Apr 19 13:26:45 2020 +0200

    HACK services: Add openssh-service as a Hurd service.
    
    XXX Remove this after dropping (hurd-service->shepherd-service).
    
    Temporary workaround to help: hurd-service->shepherd-service.
    
    * gnu/services/hurd.scm (<openssh-configuration>, openssh-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 3686987..5ba5062 100644
--- a/gnu/services/hurd.scm
+++ b/gnu/services/hurd.scm
@@ -18,6 +18,7 @@
 
 (define-module (gnu services hurd)
   #:use-module (gnu packages hurd)
+  #:use-module (gnu packages ssh)
   #:use-module (gnu services)
   #:use-module (gnu services base)
   #:use-module (gnu services shepherd)
@@ -48,6 +49,7 @@
       (($ <guix-configuration>) (guix-shepherd-service config))
       (($ <hurd-console-configuration>) (hurd-console-shepherd-service config))
       (($ <hurd-ttys-configuration>) (hurd-ttys-shepherd-service config))
+      (($ <openssh-configuration>) (openssh-shepherd-service config))
       (($ <syslog-configuration>) (syslog-shepherd-service config))
       (('loopback) (hurd-loopback-shepherd-service #f))
       (('user-processes) (user-processes-shepherd-service '()))
@@ -188,4 +190,15 @@ Hurd.")))
                              hurd-ttys-shepherd-service)))
    (default-value (hurd-ttys-configuration))))
 
+
+;;;
+;;; Bridge for OpenSSH.
+;;;
+
+(define <openssh-configuration>
+  (@@ (gnu services ssh) <openssh-configuration>))
+
+(define openssh-shepherd-service
+  (@@ (gnu services ssh) openssh-shepherd-service))
+
 ;;; hurd.scm ends here