services: agetty: Really import (gnu build linux-boot).
This is a followup to commit 62c2217570
.
* gnu/services/base.scm (agetty-shepherd-service)[start]: Wrap un
'with-imported-modules'. This fixes a build error when TTY is true
("no code for module (gnu build linux-boot)").
master
parent
cfe8d8063b
commit
5f15b42273
|
@ -990,7 +990,6 @@ to use as the tty. This is primarily useful for headless systems."
|
|||
erase-characters kill-characters chdir delay nice extra-options)
|
||||
(list
|
||||
(shepherd-service
|
||||
(modules '((ice-9 match) (gnu build linux-boot)))
|
||||
(documentation "Run agetty on a tty.")
|
||||
(provision (list (symbol-append 'term- (string->symbol (or tty "auto")))))
|
||||
|
||||
|
@ -1000,7 +999,11 @@ to use as the tty. This is primarily useful for headless systems."
|
|||
;; mingetty-shepherd-service).
|
||||
(requirement '(user-processes host-name udev))
|
||||
|
||||
(start #~(lambda args
|
||||
(modules '((ice-9 match) (gnu build linux-boot)))
|
||||
(start
|
||||
(with-imported-modules (source-module-closure
|
||||
'((gnu build linux-boot)))
|
||||
#~(lambda args
|
||||
(let ((defaulted-tty #$(or tty (default-serial-port))))
|
||||
(apply
|
||||
(if defaulted-tty
|
||||
|
@ -1115,7 +1118,7 @@ to use as the tty. This is primarily useful for headless systems."
|
|||
#~(#$term)
|
||||
#~())))
|
||||
(const #f)) ; never start.
|
||||
args))))
|
||||
args)))))
|
||||
(stop #~(make-kill-destructor)))))))
|
||||
|
||||
(define agetty-service-type
|
||||
|
|
Reference in New Issue