diff options
| author | Jan (janneke) Nieuwenhuizen <janneke@gnu.org> | 2020-05-06 10:07:08 +0200 |
|---|---|---|
| committer | Jan Nieuwenhuizen <janneke@gnu.org> | 2020-06-08 14:26:14 +0200 |
| commit | 11e4200feeffcf1abdd1559c9fca48373599ab10 (patch) | |
| tree | bf9da3580cab9cb09abefb7443e9b31164f39c62 | |
| parent | 7ccd471c71d650055e99cd02381bc8dcd86d5313 (diff) | |
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.
| -rw-r--r-- | gnu/system.scm | 11 | ||||
| -rw-r--r-- | gnu/system/hurd.scm | 18 |
2 files changed, 28 insertions, 1 deletions
diff --git a/gnu/system.scm b/gnu/system.scm index ce574d8c51..88b208277e 100644 --- a/gnu/system.scm +++ b/gnu/system.scm @@ -603,6 +603,17 @@ bookkeeping." (list (service system-service-type '()) %boot-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) (service profile-service-type (operating-system-packages os)))) diff --git a/gnu/system/hurd.scm b/gnu/system/hurd.scm index e11055cbb8..956682357e 100644 --- a/gnu/system/hurd.scm +++ b/gnu/system/hurd.scm @@ -66,7 +66,23 @@ net-base inetutils less shepherd which)) (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 (operating-system |