guix-commits
[Top][All Lists]
Advanced

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

05/21: system: hurd: Add hurd-default-essential-services.


From: guix-commits
Subject: 05/21: system: hurd: Add hurd-default-essential-services.
Date: Thu, 7 May 2020 12:31:09 -0400 (EDT)

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

commit 98400c429ce7a104f429dbfdba4958bf89dea969
Author: Jan (janneke) Nieuwenhuizen <address@hidden>
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 <address@hidden>
 ;;; Copyright © 2020 Brice Waegeneire <address@hidden>
 ;;; Copyright © 2020 Florian Pelz <address@hidden>
+;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <address@hidden>
 ;;;
 ;;; 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



reply via email to

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