From a64a3a14e8be7c67cd5fc72d87438dbfcb831a30 Mon Sep 17 00:00:00 2001 From: Tomas Volf <~@wolfsden.cz> Date: Fri, 13 Dec 2024 17:27:45 +0100 Subject: services: mingetty: Rename misnamed accessors. Rename the accessors to ensure all start with `mingetty-configuration-' prefix. Some were named just `mingetty-$FIELD', instead of `mingetty-configuration-$FIELD'. The renaming *is* backwards compatible, since in the define-module's #:export argument the correct (`mingetty-configuration-$FIELD') were used already and thus the accessors were not accessible. * gnu/services/base.scm (): Rename accessors for auto-login, login-program, login-pause?, clear-on-logout?. Change-Id: I4557a82498805ade0b341feda9d33eccc305690f Modified-by: Maxim Cournoyer Signed-off-by: Maxim Cournoyer --- gnu/services/base.scm | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'gnu/services') diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 798356ed84..7350425bb9 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -1248,26 +1248,26 @@ the tty to run, among other things." mingetty-configuration? (mingetty mingetty-configuration-mingetty ;file-like (default mingetty)) - (tty mingetty-configuration-tty) ;string - (auto-login mingetty-auto-login ;string | #f + (tty mingetty-configuration-tty) ;string + (auto-login mingetty-configuration-auto-login ;string | #f (default #f)) - (login-program mingetty-login-program ;gexp + (login-program mingetty-configuration-login-program ;gexp (default #f)) - (login-pause? mingetty-login-pause? ;Boolean + (login-pause? mingetty-configuration-login-pause? ;boolean (default #f)) - (clear-on-logout? mingetty-clear-on-logout? ;Boolean + (clear-on-logout? mingetty-configuration-clear-on-logout? ;boolean (default #t)) - (delay mingetty-configuration-delay ;Integer | #f + (delay mingetty-configuration-delay ;integer | #f (default #f)) - (print-issue mingetty-configuration-print-issue ;Boolean | Symbol + (print-issue mingetty-configuration-print-issue ;boolean | symbol (default #t)) - (print-hostname mingetty-configuration-print-hostname ;Boolean | Symbol + (print-hostname mingetty-configuration-print-hostname ;boolean | symbol (default #t)) - (nice mingetty-configuration-nice ;Integer | #f + (nice mingetty-configuration-nice ;integer | #f (default #f)) - (working-directory mingetty-configuration-working-directory ;String | #f + (working-directory mingetty-configuration-working-directory ;string | #f (default #f)) - (root-directory mingetty-configuration-root-directory ;String | #f + (root-directory mingetty-configuration-root-directory ;string | #f (default #f))) (define (mingetty-shepherd-service config) -- cgit v1.2.3