me
/
guix
Archived
1
0
Fork 0
Code

system: hurd: Add hurd-default-essential-services. 

* gnu/system.scm (hurd-default-essential-services): New procedure.
master
Jan (janneke) Nieuwenhuizen 2020-05-03 14:13:58 +02:00 committed by Jan Nieuwenhuizen
parent c77b92859f
commit 45b2cb439d
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gnu/system.scm
View File

@ -9,6 +9,7 @@
;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re> ;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re>
;;; Copyright © 2020 Florian Pelz <pelzflorian@pelzflorian.de> ;;; Copyright © 2020 Florian Pelz <pelzflorian@pelzflorian.de>
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <jannek@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -127,6 +128,8 @@
operating-system-with-gc-roots operating-system-with-gc-roots
operating-system-with-provenance operating-system-with-provenance
hurd-default-essential-services
boot-parameters boot-parameters
boot-parameters? boot-parameters?
boot-parameters-label boot-parameters-label
@ -574,6 +577,10 @@ bookkeeping."
(service firmware-service-type (service firmware-service-type
(operating-system-firmware os))))))) (operating-system-firmware os)))))))
(define (hurd-default-essential-services os)
(list (service system-service-type '())
(service profile-service-type '())))
(define* (operating-system-services os) (define* (operating-system-services os)
"Return all the services of OS, including \"essential\" services." "Return all the services of OS, including \"essential\" services."
(instantiate-missing-services (instantiate-missing-services