janneke pushed a commit to branch wip-hurd-vm
in repository guix.
commit f543c2e73a9ecb6da7be3ba7de722eb01e396e18
Author: Jan (janneke) Nieuwenhuizen <[email protected]>
AuthorDate: Sun May 3 14:13:58 2020 +0200
system: hurd: Add hurd-default-essential-services.
* gnu/system.scm (hurd-default-essential-services): New procedure.
---
gnu/system.scm | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/gnu/system.scm b/gnu/system.scm
index ac8bbd1..213452a 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -9,6 +9,7 @@
;;; Copyright © 2020 Brice Waegeneire <[email protected]>
;;; Copyright © 2020 Florian Pelz <[email protected]>
;;; Copyright © 2020 Maxim Cournoyer <[email protected]>
+;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <[email protected]>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -127,6 +128,8 @@
operating-system-with-gc-roots
operating-system-with-provenance
+ hurd-default-essential-services
+
boot-parameters
boot-parameters?
boot-parameters-label
@@ -574,6 +577,10 @@ bookkeeping."
(service firmware-service-type
(operating-system-firmware os)))))))
+(define (hurd-default-essential-services os)
+ (list (service system-service-type '())
+ (service profile-service-type '())))
+
(define* (operating-system-services os)
"Return all the services of OS, including \"essential\" services."
(instantiate-missing-services
