guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

22/48: services: Add openssh-service as a Hurd service.


From: guix-commits
Subject: 22/48: services: Add openssh-service as a Hurd service.
Date: Sun, 19 Apr 2020 10:22:12 -0400 (EDT)

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

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

    services: Add openssh-service as a Hurd service.
    
    * gnu/services/hurd.scm (<openssh-configuration>, openssh-shepherd-service):
    New variable.
    (hurd-service->shepherd-service): Add entry.
---
 gnu/services/hurd.scm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/gnu/services/hurd.scm b/gnu/services/hurd.scm
index 5b3fabd..5853e92 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)
@@ -31,6 +32,8 @@
             hurd-console-service-type
             hurd-loopback-service-type
             hurd-service->shepherd-service
+            hurd-ssh-configuration
+            hurd-ssh-service-type
             hurd-ttys-configuration
             hurd-ttys-service-type
             hurd-user-processes-service-type))
@@ -48,6 +51,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) (hurd-user-processes-shepherd-service #f))
@@ -209,4 +213,15 @@ Hurd.")))
    (extend  append)
    (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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]