[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
21/36: services: Add hurd-file-systems-service-type.
From: |
guix-commits |
Subject: |
21/36: services: Add hurd-file-systems-service-type. |
Date: |
Fri, 1 May 2020 11:54:00 -0400 (EDT) |
janneke pushed a commit to branch wip-hurd-vm
in repository guix.
commit 945436e524e460935cc819b8770b3925c03ca287
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 3e2a72f..892cd7b 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
@@ -55,6 +56,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) (user-processes-shepherd-service '()))
(_ '()))))
@@ -88,6 +90,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 first-of-two)
+ (default-value '(file-systems)) ;canary for hurd-service->shepherd-service
+ (description "Dummy service to bootstrap (gnu services) on the
+Hurd.")))
+
+
+;;;
;;; Bridge for guix-daemon.
;;;
- 05/36: HACK services: Add guix-daemon-service as a Hurd service., (continued)
- 05/36: HACK services: Add guix-daemon-service as a Hurd service., guix-commits, 2020/05/01
- 07/36: HACK services: hurd: Add dummy loopback., guix-commits, 2020/05/01
- 16/36: system: hurd: Create system profile for guix development., guix-commits, 2020/05/01
- 17/36: system: gnu: Add %bootstrap-{gcc, binutils, glibc} for devel profile., guix-commits, 2020/05/01
- 08/36: squash! Use static-networking for loopback, guix-commits, 2020/05/01
- 24/36: services: hurd: Use hurd-file-systems-service., guix-commits, 2020/05/01
- 23/36: system: hurd: Export system variables., guix-commits, 2020/05/01
- 06/36: HACK services: hurd: Add dummy syslog., guix-commits, 2020/05/01
- 11/36: DRAFT system: hurd: Add the Shepherd., guix-commits, 2020/05/01
- 18/36: system: hurd: Add guix., guix-commits, 2020/05/01
- 21/36: services: Add hurd-file-systems-service-type.,
guix-commits <=
- 22/36: services: hurd: Move hurd-default-essential-services., guix-commits, 2020/05/01
- 20/36: services: hurd: Move hurd-etc-sevcices., guix-commits, 2020/05/01
- 25/36: system: hurd: Add hurd-grub-configuration-file., guix-commits, 2020/05/01
- 36/36: HACK Don't fail on running host's localedef., guix-commits, 2020/05/01
- 28/36: system: vm: Add defaults for the Hurd., guix-commits, 2020/05/01
- 29/36: gnu: glibc/hurd-headers: Cross-build fix for the Hurd., guix-commits, 2020/05/01
- 34/36: WIP: gnu: services: Add %hurd-bare-metal-service., guix-commits, 2020/05/01
- 32/36: DRAFT system: examples: Add bare-hurd.tmpl., guix-commits, 2020/05/01
- 35/36: HACK system: vm: Add Hurd specifics., guix-commits, 2020/05/01
- 19/36: system: hurd: Add the guix service., guix-commits, 2020/05/01