me/guix
Archived
1
0
Fork 0
Code Activity

services: agetty: Really import (gnu build linux-boot).

Browse source 
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)").
This commit is contained in:
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
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/services/base.scm
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) erase-characters kill-characters chdir delay nice extra-options)
(list (list
(shepherd-service (shepherd-service
(modules '((ice-9 match) (gnu build linux-boot)))
(documentation "Run agetty on a tty.") (documentation "Run agetty on a tty.")
(provision (list (symbol-append 'term- (string->symbol (or tty "auto"))))) (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). ;; mingetty-shepherd-service).
(requirement '(user-processes host-name udev)) (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)))) (let ((defaulted-tty #$(or tty (default-serial-port))))
(apply (apply
(if defaulted-tty (if defaulted-tty
@ -1115,7 +1118,7 @@ to use as the tty. This is primarily useful for headless systems."
#~(#$term) #~(#$term)
#~()))) #~())))
(const #f)) ; never start. (const #f)) ; never start.
args)))) args)))))
(stop #~(make-kill-destructor))))))) (stop #~(make-kill-destructor)))))))
(define agetty-service-type (define agetty-service-type