diff options
| author | Tomas Volf <~@wolfsden.cz> | 2024-12-13 17:27:45 +0100 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2024-12-15 00:19:41 +0900 |
| commit | a64a3a14e8be7c67cd5fc72d87438dbfcb831a30 (patch) | |
| tree | b4ddbe195cccf5df7b82ba283d7c61bc33ea3321 /gnu/services | |
| parent | 7068f6f7a5a53a29e9650b097924246cf0d445b4 (diff) | |
| download | guix-a64a3a14e8be7c67cd5fc72d87438dbfcb831a30.tar.gz guix-a64a3a14e8be7c67cd5fc72d87438dbfcb831a30.zip | |
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 (<mingetty-configuration>): Rename accessors for
auto-login, login-program, login-pause?, clear-on-logout?.
Change-Id: I4557a82498805ade0b341feda9d33eccc305690f
Modified-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Diffstat (limited to 'gnu/services')
| -rw-r--r-- | gnu/services/base.scm | 22 |
1 files changed, 11 insertions, 11 deletions
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) |