From e84d8b30d9ec17e1d1860a068e78631c35f6c334 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 4 Jul 2014 19:01:22 +0200
Subject: [PATCH] vm: Enable QEMU support in the freestanding VM image.

* gnu/system/vm.scm (system-qemu-image): Add 'initrd' field.
---
 gnu/system/vm.scm | 5 +++++
 1 file changed, 5 insertions(+)

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 "/")