ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 23:46:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

file-systems: Have the emergency REPL output to /dev/console.

Browse source 
This fixes a bug whereby all emergency REPL output would go to /dev/klog
and thus, each line would be prefixed by "[12324.432] shepherd[1]: ".

* gnu/build/file-systems.scm (check-file-system): Wrap 'start-repl' call
in 'with-output-to-file'.
This commit is contained in:
Ludovic Courtès 2018-12-18 15:08:19 +01:00
parent 6ea6e1476f
commit 5de5f81845
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gnu/build/file-systems.scm
View file

@ -541,7 +541,13 @@ (define check-procedure
;; Spawn a REPL only if someone would be able to interact with it. ;; Spawn a REPL only if someone would be able to interact with it.
(when (isatty? (current-input-port)) (when (isatty? (current-input-port))
(format (current-error-port) "Spawning Bourne-like REPL.~%") (format (current-error-port) "Spawning Bourne-like REPL.~%")
(start-repl %bournish-language))))
;; 'current-output-port' is typically connected to /dev/klog (in
;; PID 1), but here we want to make sure we talk directly to the
;; user.
(with-output-to-file "/dev/console"
(lambda ()
(start-repl %bournish-language))))))
(format (current-error-port) (format (current-error-port)
"No file system check procedure for ~a; skipping~%" "No file system check procedure for ~a; skipping~%"
device))) device)))