02/07: services: Add hurd-file-systems-service-type.

[guix-commits]

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

commit 4efbb9ed885ca5df4b0ff421e4bb4fb0cae03861
Author: Jan (janneke) Nieuwenhuizen <address@hidden>
AuthorDate: Sat Apr 25 11:58:21 2020 +0200

    services: Add hurd-file-systems-service-type.
    
    guix system build ... depends on `file-systems-services'.  Provide a dummy
    for that, so that we can migrate to guix system ...
    
    * gnu/services/hurd.scm (hurd-file-systems-services-shepherd-service,
    hurd-file-systems-services-service-type): New function.
    (hurd-service->shepherd-service): Add entry.
---
 gnu/services/hurd.scm | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/gnu/services/hurd.scm b/gnu/services/hurd.scm
index 80c16d5..2bbb171 100644
--- a/gnu/services/hurd.scm
+++ b/gnu/services/hurd.scm
@@ -34,6 +34,7 @@
   #:export (hurd-console-configuration
             hurd-console-service-type
             hurd-etc-service
+            hurd-file-systems-service-type
             hurd-loopback-service-type
             hurd-service->shepherd-service
             hurd-ttys-configuration
@@ -56,6 +57,7 @@
       (($ <openssh-configuration>) (openssh-shepherd-service config))
       (($ <syslog-configuration>) (syslog-shepherd-service config))
       (('loopback) (hurd-loopback-shepherd-service #f))
+      (('file-systems) (hurd-file-systems-shepherd-service #f))
       (('user-processes) (hurd-user-processes-shepherd-service #f))
       (_ '()))))
 
@@ -86,6 +88,33 @@ fi\n")))
 
 
 ;;;
+;;; Dummy hurd-file-systems-shepherd-service, required for user-homes.
+;;;
+
+(define (hurd-file-systems-shepherd-service _)
+  "Return the 'file-systems' Shepherd service."
+
+  (list (shepherd-service
+         (documentation "Dummy for bootstrapping (gnu services) on the Hurd.")
+         (provision '(file-systems))
+         (requirement '())
+         (start #~(const #t))
+         (stop #~(const #t))
+         (respawn? #f))))
+
+(define hurd-file-systems-service-type
+  (service-type
+   (name 'file-systems)
+   (extensions (list (service-extension shepherd-root-service-type
+                                        hurd-file-systems-shepherd-service)))
+   (compose concatenate)
+   (extend append)
+   (default-value '(file-systems)) ;canary for hurd-service->shepherd-service
+   (description "Dummy service to bootstrap (gnu services) on the
+Hurd.")))
+
+
+;;;
 ;;; Bridge for guix-daemon.
 ;;;