From 6dd635b4cf7a65560056c1089982fe00f73e6468 Mon Sep 17 00:00:00 2001 From: Bruno Victal Date: Sat, 25 Feb 2023 18:57:48 +0000 Subject: services: base: Deprecate 'login-service' procedure. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * doc/guix.texi (Base Services): Replace with login-service-type. * gnu/services/base.scm (login-service): Deprecate procedure. * gnu/system/install.scm (%installation-services): Use login-service-type. Signed-off-by: Ludovic Courtès --- gnu/services/base.scm | 5 +++-- gnu/system/install.scm | 5 +++-- 2 files changed, 6 insertions(+), 4 deletions(-) (limited to 'gnu') diff --git a/gnu/services/base.scm b/gnu/services/base.scm index c471107883..8dfd92aacf 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -158,7 +158,7 @@ login-configuration login-configuration? login-service-type - login-service + login-service ; deprecated agetty-configuration agetty-configuration? @@ -937,7 +937,8 @@ Return a service that sets up Unicode support in @var{tty} and loads "Provide a console log-in service as specified by its configuration value, a @code{login-configuration} object."))) -(define* (login-service #:optional (config (login-configuration))) +(define-deprecated (login-service #:optional (config (login-configuration))) + login-service-type "Return a service configure login according to @var{config}, which specifies the message of the day, among other things." (service login-service-type config)) diff --git a/gnu/system/install.scm b/gnu/system/install.scm index b3cf7a1bd8..8c7585f188 100644 --- a/gnu/system/install.scm +++ b/gnu/system/install.scm @@ -347,8 +347,9 @@ Access documentation at any time by pressing Alt-F2.\x1b[0m (virtual-terminal "tty1") (login-program (installer-program)))) - (login-service (login-configuration - (motd motd))) + (service login-service-type + (login-configuration + (motd motd))) ;; Documentation. The manual is in UTF-8, but ;; 'console-font-service' sets up Unicode support and loads a font -- cgit 1.4.1