vm: Enable QEMU support in the freestanding VM image.

* gnu/system/vm.scm (system-qemu-image): Add 'initrd' field.
2014-07-04 19:01:22 +02:00 · 2014-07-04 19:01:22 +02:00 · e84d8b30d9
parent 3a100e7934
commit e84d8b30d9
1 changed files with 5 additions and 0 deletions
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@ -329,6 +329,11 @@ of the GNU system as described by OS."
            (operating-system-file-systems os)))

  (let ((os (operating-system (inherit os)
+              ;; Use an initrd with the whole QEMU shebang.
+              (initrd (cut base-initrd <>
+                           #:virtio? #t
+                           #:qemu-networking? #t))
+
              ;; Force our own root file system.
              (file-systems (cons (file-system
                                    (mount-point "/")