ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: agetty: Explicitly depend on (gnu build linux-boot).

Browse source 
* gnu/services/base.scm (default-serial-port): Wrap in
'with-imported-modules'.
This commit is contained in:
Ludovic Courtès 2019-10-06 12:01:24 +02:00
parent 1994422752
commit 62c2217570
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 32 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gnu/services/base.scm
View file

@ -939,6 +939,8 @@ (define-record-type* <agetty-configuration>
(define (default-serial-port)
"Return a gexp that determines a reasonable default serial port
to use as the tty. This is primarily useful for headless systems."
(with-imported-modules (source-module-closure
'((gnu build linux-boot))) ;for 'find-long-options'
#~(begin
;; console=device,options
;; device: can be tty0, ttyS0, lp0, ttyUSB0 (serial).
@ -968,7 +970,7 @@ (define (default-serial-port)
;; Extract device name from first spec.
(match (string-tokenize spec not-comma)
((device-name _ ...)
device-name)))))))
device-name))))))))
(define agetty-shepherd-service
(match-lambda