nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: Have `qemu-image' explicitly reboot when done. 

* gnu/system/vm.scm (qemu-image): Call `reboot' when we're done.  Change
  `menuentry' title.
This commit is contained in:
Ludovic Courtès 2013-08-23 15:11:35 +02:00
parent 290d437097
commit baed8816fc
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gnu/system/vm.scm
View File

@ -197,10 +197,11 @@ DISK-IMAGE-SIZE bytes and return it."
(call-with-output-file "/fs/boot/grub/grub.cfg" (call-with-output-file "/fs/boot/grub/grub.cfg"
(lambda (p) (lambda (p)
(display " (display "
set timeout=10 set default=1
set timeout=5
search.file /boot/bzImage search.file /boot/bzImage
menuentry \"Boot-to-Guile! Happy Birthday Guile 2.0! (Guile, Guix & co.)\" { menuentry \"Boot-to-Guile! (GNU System technology preview)\" {
linux /boot/bzImage --repl linux /boot/bzImage --repl
initrd /boot/initrd initrd /boot/initrd
}" p))) }" p)))
@ -209,7 +210,8 @@ menuentry \"Boot-to-Guile! Happy Birthday Guile 2.0! (Guile, Guix & co.)\" {
"--boot-directory" "/fs/boot" "--boot-directory" "/fs/boot"
"/dev/vda")) "/dev/vda"))
(zero? (zero?
(system* umount "/fs")))))))) (system* umount "/fs"))
(reboot)))))))
`(("parted" ,parted) `(("parted" ,parted)
("grub" ,grub) ("grub" ,grub)
("e2fsprogs" ,e2fsprogs) ("e2fsprogs" ,e2fsprogs)