services: base: Deprecate 'mingetty-service' procedure.
* doc/guix.texi (Base Services): Replace mingetty-service with mingetty-service-type. * gnu/services/base.scm (mingetty-service): Deprecate procedure. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
		
							parent
							
								
									6dd635b4cf
								
							
						
					
					
						commit
						ad665a38fc
					
				
					 3 changed files with 14 additions and 13 deletions
				
			
		|  | @ -18123,18 +18123,17 @@ the 'root' account has just been created. | ||||||
| @end table | @end table | ||||||
| @end deftp | @end deftp | ||||||
| 
 | 
 | ||||||
| @deffn {Scheme Procedure} mingetty-service @var{config} | @defvar mingetty-service-type | ||||||
| Return a service to run mingetty according to @var{config}, a | Type of the service that runs Mingetty, an implementation of the | ||||||
| @code{<mingetty-configuration>} object, which specifies the tty to run, among | virtual console log-in.  The value for this service is a | ||||||
| other things. | @code{<mingetty-configuration>} object. | ||||||
| @end deffn | @end defvar | ||||||
| 
 | 
 | ||||||
| @deftp {Data Type} mingetty-configuration | @deftp {Data Type} mingetty-configuration | ||||||
| This is the data type representing the configuration of Mingetty, which | Data type representing the configuration of Mingetty, which specifies | ||||||
| provides the default implementation of virtual console log-in. | the tty to run, among other things. | ||||||
| 
 | 
 | ||||||
| @table @asis | @table @asis | ||||||
| 
 |  | ||||||
| @item @code{tty} | @item @code{tty} | ||||||
| The name of the console this Mingetty runs on---e.g., @code{"tty1"}. | The name of the console this Mingetty runs on---e.g., @code{"tty1"}. | ||||||
| 
 | 
 | ||||||
|  |  | ||||||
|  | @ -173,7 +173,7 @@ | ||||||
|             mingetty-configuration-clear-on-logout? |             mingetty-configuration-clear-on-logout? | ||||||
|             mingetty-configuration-mingetty |             mingetty-configuration-mingetty | ||||||
|             mingetty-configuration? |             mingetty-configuration? | ||||||
|             mingetty-service |             mingetty-service  ; deprecated | ||||||
|             mingetty-service-type |             mingetty-service-type | ||||||
| 
 | 
 | ||||||
|             %nscd-default-caches |             %nscd-default-caches | ||||||
|  | @ -1275,7 +1275,8 @@ the tty to run, among other things." | ||||||
|                  "Provide console login using the @command{mingetty} |                  "Provide console login using the @command{mingetty} | ||||||
| program."))) | 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 |   "Return a service to run mingetty according to @var{config}, which specifies | ||||||
| the tty to run, among other things." | the tty to run, among other things." | ||||||
|   (service mingetty-service-type config)) |   (service mingetty-service-type config)) | ||||||
|  |  | ||||||
|  | @ -331,9 +331,10 @@ Using this shell, you can carry out the installation process \"manually.\" | ||||||
| Access documentation at any time by pressing Alt-F2.\x1b[0m | Access documentation at any time by pressing Alt-F2.\x1b[0m | ||||||
| "))) | "))) | ||||||
|     (define (normal-tty tty) |     (define (normal-tty tty) | ||||||
|       (mingetty-service (mingetty-configuration (tty tty) |       (service mingetty-service-type | ||||||
|                                                 (auto-login "root") |                (mingetty-configuration (tty tty) | ||||||
|                                                 (login-pause? #t)))) |                                        (auto-login "root") | ||||||
|  |                                        (login-pause? #t)))) | ||||||
| 
 | 
 | ||||||
|     (define bare-bones-os |     (define bare-bones-os | ||||||
|       (load "examples/bare-bones.tmpl")) |       (load "examples/bare-bones.tmpl")) | ||||||
|  |  | ||||||
		Reference in a new issue