diff options
| author | Efraim Flashner <efraim@flashner.co.il> | 2019-01-20 15:25:45 +0200 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2019-01-20 16:11:07 +0200 |
| commit | 76a2b2db1a5c6a68be994712e5273b2ac4e4c82a (patch) | |
| tree | 8f9919e80325431bbcc5013b48d30180f0e54fd8 | |
| parent | 178bce41d8bd7fd25ea33c7e3f10add339746061 (diff) | |
| download | patches-76a2b2db1a5c6a68be994712e5273b2ac4e4c82a.tar patches-76a2b2db1a5c6a68be994712e5273b2ac4e4c82a.tar.gz | |
gnu: %base-services: Use *getty-service-type.
* gnu/services/base.scm (%base-services): Replace agetty-service with
agetty-service-type, mingetty-service with mingetty-service-type.
| -rw-r--r-- | gnu/services/base.scm | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 5817562860..d2baea0dd0 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -2305,23 +2305,23 @@ to handle." (cons tty %default-console-font)) '("tty1" "tty2" "tty3" "tty4" "tty5" "tty6"))) - (agetty-service (agetty-configuration - (extra-options '("-L")) ; no carrier detect - (term "vt100") - (tty #f))) ; automatic - - (mingetty-service (mingetty-configuration - (tty "tty1"))) - (mingetty-service (mingetty-configuration - (tty "tty2"))) - (mingetty-service (mingetty-configuration - (tty "tty3"))) - (mingetty-service (mingetty-configuration - (tty "tty4"))) - (mingetty-service (mingetty-configuration - (tty "tty5"))) - (mingetty-service (mingetty-configuration - (tty "tty6"))) + (service agetty-service-type (agetty-configuration + (extra-options '("-L")) ; no carrier detect + (term "vt100") + (tty #f))) ; automatic + + (service mingetty-service-type (mingetty-configuration + (tty "tty1"))) + (service mingetty-service-type (mingetty-configuration + (tty "tty2"))) + (service mingetty-service-type (mingetty-configuration + (tty "tty3"))) + (service mingetty-service-type (mingetty-configuration + (tty "tty4"))) + (service mingetty-service-type (mingetty-configuration + (tty "tty5"))) + (service mingetty-service-type (mingetty-configuration + (tty "tty6"))) (service static-networking-service-type (list (static-networking (interface "lo") |