guix/guix
3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00
Code Issues Releases Wiki Activity

services: mingetty: Move tty optionality to agetty.

Browse source 
Follow-up to 5a9902c8ac.

* gnu/services/base.scm (mingetty-shepherd-service): Move tty optionality check to...
(agetty-shepherd-service): ...here.
This commit is contained in:
Danny Milosavljevic 2018-02-15 12:25:36 +01:00
parent 0297a160a0
commit 7e0a6fac0b
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5
1 changed files with 121 additions and 121 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/services/base.scm
View file

@ -944,7 +944,9 @@ to use as the tty. This is primarily useful for headless systems."
;; mingetty-shepherd-service).
(requirement '(user-processes host-name udev))
(start #~(make-forkexec-constructor
(start #~(let ((tty #$(default-serial-port)))
(if tty
(make-forkexec-constructor
(list #$(file-append util-linux "/sbin/agetty")
#$@extra-options
#$@(if eight-bits?
@ -1054,6 +1056,7 @@ to use as the tty. This is primarily useful for headless systems."
#$@(if term
#~(#$term)
#~()))))
(const #f))) ; never start.
(stop #~(make-kill-destructor)))))))
(define agetty-service-type
@ -1096,9 +1099,7 @@ the tty to run, among other things."
;; text is not lost in the middle of kernel messages (XXX).
(requirement '(user-processes host-name udev))
(start #~(let ((tty #$(default-serial-port)))
(if tty
(make-forkexec-constructor
(start #~(make-forkexec-constructor
(list #$(file-append mingetty "/sbin/mingetty")
"--noclear" #$tty
#$@(if auto-login
@ -1109,8 +1110,7 @@ the tty to run, among other things."
#~())
#$@(if login-pause?
#~("--loginpause")
#~())))
(const #f)))) ; never start.
#~()))))
(stop #~(make-kill-destructor)))))))
(define mingetty-service-type