@@ -18123,18 +18123,17 @@ Base Services
@end table
@end deftp
-@deffn {Scheme Procedure} mingetty-service @var{config}
-Return a service to run mingetty according to @var{config}, a
-@code{<mingetty-configuration>} object, which specifies the tty to run, among
-other things.
-@end deffn
+@defvar mingetty-service-type
+Type of the service that runs Mingetty, an implementation of the
+virtual console log-in. The value for this service is a
+@code{<mingetty-configuration>} object.
+@end defvar
@deftp {Data Type} mingetty-configuration
-This is the data type representing the configuration of Mingetty, which
-provides the default implementation of virtual console log-in.
+Data type representing the configuration of Mingetty, which specifies
+the tty to run, among other things.
@table @asis
-
@item @code{tty}
The name of the console this Mingetty runs on---e.g., @code{"tty1"}.
@@ -173,7 +173,7 @@ (define-module (gnu services base)
mingetty-configuration-clear-on-logout?
mingetty-configuration-mingetty
mingetty-configuration?
- mingetty-service
+ mingetty-service ; deprecated
mingetty-service-type
%nscd-default-caches
@@ -1275,7 +1275,8 @@ (define mingetty-service-type
"Provide console login using the @command{mingetty}
program.")))
-(define* (mingetty-service config)
+(define-deprecated (mingetty-service config)
+ mingetty-service-type
"Return a service to run mingetty according to @var{config}, which specifies
the tty to run, among other things."
(service mingetty-service-type config))
@@ -331,9 +331,10 @@ (define* (%installation-services #:key (system (or (and=>
Access documentation at any time by pressing Alt-F2.\x1b[0m
")))
(define (normal-tty tty)
- (mingetty-service (mingetty-configuration (tty tty)
- (auto-login "root")
- (login-pause? #t))))
+ (service mingetty-service-type
+ (mingetty-configuration (tty tty)
+ (auto-login "root")
+ (login-pause? #t))))
(define bare-bones-os
(load "examples/bare-bones.tmpl"))