system: hurd: Populate services.
* gnu/system/hurd.scm (%base-services/hurd): Add hurd-console-service, hurd-getty-services, guix-service. Also add sylog and loopback, needed for ... * gnu/system.scm (hurd-default-essential-services): ... add %shepherd-root-service with dependencies: %boot-service, %activation-service, user-processes, root-file-system-service, file-system-service, pam-root-service.
This commit is contained in:
parent
7ccd471c71
commit
11e4200fee
|
@ -603,6 +603,17 @@ (define (hurd-default-essential-services os)
|
||||||
(list (service system-service-type '())
|
(list (service system-service-type '())
|
||||||
%boot-service
|
%boot-service
|
||||||
%activation-service
|
%activation-service
|
||||||
|
%shepherd-root-service
|
||||||
|
(service user-processes-service-type)
|
||||||
|
(account-service (append (operating-system-accounts os)
|
||||||
|
(operating-system-groups os))
|
||||||
|
(operating-system-skeletons os))
|
||||||
|
(root-file-system-service)
|
||||||
|
(service file-system-service-type '())
|
||||||
|
(service fstab-service-type
|
||||||
|
(filter file-system-needed-for-boot?
|
||||||
|
(operating-system-file-systems os)))
|
||||||
|
(pam-root-service (operating-system-pam-services os))
|
||||||
(operating-system-etc-service os)
|
(operating-system-etc-service os)
|
||||||
(service profile-service-type (operating-system-packages os))))
|
(service profile-service-type (operating-system-packages os))))
|
||||||
|
|
||||||
|
|
|
@ -66,7 +66,23 @@ (define %base-packages/hurd
|
||||||
net-base inetutils less shepherd which))
|
net-base inetutils less shepherd which))
|
||||||
|
|
||||||
(define %base-services/hurd
|
(define %base-services/hurd
|
||||||
'())
|
(list (service hurd-console-service-type
|
||||||
|
(hurd-console-configuration (hurd hurd)))
|
||||||
|
(service hurd-getty-service-type (hurd-getty-configuration
|
||||||
|
(tty "tty1")))
|
||||||
|
(service hurd-getty-service-type (hurd-getty-configuration
|
||||||
|
(tty "tty2")))
|
||||||
|
(service static-networking-service-type
|
||||||
|
(list (static-networking (interface "lo")
|
||||||
|
(ip "127.0.0.1")
|
||||||
|
(requirement '())
|
||||||
|
(provision '(loopback))
|
||||||
|
(name-servers '("10.0.2.3")))))
|
||||||
|
(syslog-service)
|
||||||
|
(service guix-service-type
|
||||||
|
(guix-configuration
|
||||||
|
(extra-options '("--disable-chroot"
|
||||||
|
"--disable-deduplication"))))))
|
||||||
|
|
||||||
(define %hurd-default-operating-system
|
(define %hurd-default-operating-system
|
||||||
(operating-system
|
(operating-system
|
||||||
|
|
Loading…
Reference in a new issue