From 24e0160a4a319a849a9d48da52883a1979df76f9 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Mon, 30 Jun 2014 06:49:38 +0200
Subject: linux-initrd: Make the virtio kernel modules optional.

* gnu/system/linux-initrd.scm (qemu-initrd): Add #:virtio? parameter.
  Use it.
* gnu/system/vm.scm (expression->derivation-in-linux-vm): Pass
  'qemu-initrd' #:virtio?.
  (virtualized-operating-system): Likewise.
---
 gnu/system/vm.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'gnu/system/vm.scm')

diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index 3c9c9c83e1..61b10f18df 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -154,6 +154,7 @@ made available under the /xchg CIFS share."
        (initrd       (if initrd                   ; use the default initrd?
                          (return initrd)
                          (qemu-initrd %linux-vm-file-systems
+                                      #:virtio? #t
                                       #:guile-modules-in-chroot? #t))))
 
     (define builder
@@ -349,7 +350,9 @@ of the GNU system as described by OS."
   "Return an operating system based on OS suitable for use in a virtualized
 environment with the store shared with the host."
   (operating-system (inherit os)
-    (initrd (cut qemu-initrd <> #:volatile-root? #t))
+    (initrd (cut qemu-initrd <>
+                 #:volatile-root? #t
+                 #:virtio? #t))
     (file-systems (cons* (file-system
                            (mount-point "/")
                            (device "/dev/vda1")
-- 
cgit v1.2.3