diff options
| author | Danny Milosavljevic <dannym@scratchpost.org> | 2022-02-25 17:13:12 +0100 |
|---|---|---|
| committer | Danny Milosavljevic <dannym@scratchpost.org> | 2022-02-25 17:13:18 +0100 |
| commit | ed17082d94bdcdb67713e95d181061d179299aad (patch) | |
| tree | 2d021467abcbcc54c9364e59139c0cb30efdc982 /gnu/services | |
| parent | ec0404fcc650ddcdd76a41aeee8afb1df72095b4 (diff) | |
| download | guix-ed17082d94bdcdb67713e95d181061d179299aad.tar.gz | |
services: agetty: Add shepherd-requirement.
* gnu/services/base.scm (<agetty-configuration>): Add shepherd-requirement. * doc/guix.texi (agetty-configuration): Document it.
Diffstat (limited to 'gnu/services')
| -rw-r--r-- | gnu/services/base.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 4c8a840156..308940ff14 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -876,6 +876,8 @@ the message of the day, among other things." ;; "Escape hatch" for passing arbitrary command-line arguments. (extra-options agetty-extra-options ;list of strings (default '())) + (shepherd-requirement agetty-shepherd-requirement ;list of SHEPHERD requirements + (default '())) ;;; XXX Unimplemented for now! ;;; (issue-file agetty-issue-file ;file-like ;;; (default #f)) @@ -924,7 +926,8 @@ to use as the tty. This is primarily useful for headless systems." host no-issue? init-string no-clear? local-line extract-baud? skip-login? no-newline? login-options chroot hangup? keep-baud? timeout detect-case? wait-cr? no-hints? no-hostname? long-hostname? - erase-characters kill-characters chdir delay nice extra-options) + erase-characters kill-characters chdir delay nice extra-options + shepherd-requirement) (list (shepherd-service (documentation "Run agetty on a tty.") @@ -934,7 +937,8 @@ to use as the tty. This is primarily useful for headless systems." ;; service to be done. Also wait for udev essentially so that the tty ;; text is not lost in the middle of kernel messages (see also ;; mingetty-shepherd-service). - (requirement '(user-processes host-name udev)) + (requirement (cons* 'user-processes 'host-name 'udev + shepherd-requirement)) (modules '((ice-9 match) (gnu build linux-boot))) (start |