aboutsummaryrefslogtreecommitdiff
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)
downloadpatches-e84d8b30d9ec17e1d1860a068e78631c35f6c334.tar
patches-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 "/")