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

marionette: Add support for QEMU's "quit" command.

Browse source 
* gnu/build/marionette.scm (marionette-control): Don't wait for the
monitor prompt when the command was "quit".
This commit is contained in:
Chris Marusich 2018-07-30 22:47:43 -07:00
parent d973915e48
commit 4dd53a83b5
No known key found for this signature in database
GPG key ID: DD409A15D822469D
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
gnu/build/marionette.scm
View file

@ -222,7 +222,8 @@ (define (marionette-control command marionette)
(($ <marionette> _ _ monitor)
(display command monitor)
(newline monitor)
(wait-for-monitor-prompt monitor))))
;; The "quit" command terminates QEMU immediately, with no output.
(unless (string=? command "quit") (wait-for-monitor-prompt monitor)))))
(define* (marionette-screen-text marionette
#:key