janneke pushed a commit to branch wip-hurd-vm
in repository guix.
commit 716de4f0b9fb2874c79b2902006433ff5693e33f
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 cd75e4d..a42fa65 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -8,6 +8,7 @@
;;; Copyright © 2020 Danny Milosavljevic <[email protected]>
;;; Copyright © 2020 Brice Waegeneire <[email protected]>
;;; Copyright © 2020 Florian Pelz <[email protected]>
+;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <[email protected]>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -126,6 +127,8 @@
operating-system-with-gc-roots
operating-system-with-provenance
+ hurd-default-essential-services
+
boot-parameters
boot-parameters?
boot-parameters-label
@@ -573,6 +576,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
