summary refs log tree commit diff
path: root/gnu/system/vm.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-07-04 19:01:22 +0200
committerLudovic Courtès <ludo@gnu.org>2014-07-04 19:01:22 +0200
commite84d8b30d9ec17e1d1860a068e78631c35f6c334 (patch)
treec2038956e47c3750d7ddbe2f00dd1518f3692d8c /gnu/system/vm.scm
parent3a100e79341897904e2b2fa26a982910fc67729d (diff)
downloadguix-e84d8b30d9ec17e1d1860a068e78631c35f6c334.tar.gz
vm: Enable QEMU support in the freestanding VM image.
* gnu/system/vm.scm (system-qemu-image): Add 'initrd' field.
Diffstat (limited to 'gnu/system/vm.scm')
-rw-r--r--gnu/system/vm.scm5
1 files changed, 5 insertions, 0 deletions
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index 50f7e6f692..a90b24305d 100644
--- 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 "/")