me
/
guix
Archived
1
0
Fork 0

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
Ludovic Courtès 2019-10-21 16:10:33 +02:00
parent cfe8d8063b
commit 5f15b42273
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 116 additions and 113 deletions

View File

@ -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