aboutsummaryrefslogtreecommitdiff
path: root/gnu/system/vm.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-05-23 22:35:08 +0200
committerLudovic Courtès <ludo@gnu.org>2014-05-23 22:37:24 +0200
commit112440a7b832a3841bf8e8139975b43b78f8a6ab (patch)
treedf6b209d99dd05eb2c6435c53dc48349ed0320b0 /gnu/system/vm.scm
parenta68d976b666a5097585cf221f4f8d793f90f3464 (diff)
downloadpatches-112440a7b832a3841bf8e8139975b43b78f8a6ab.tar
patches-112440a7b832a3841bf8e8139975b43b78f8a6ab.tar.gz
vm: Disable QEMU networking in the disk image initrd.
* gnu/system/linux-initrd.scm (qemu-initrd): Add #:qemu-networking? parameter and honor it. * gnu/system/vm.scm (system-disk-image): Pass #:qemu-networking #f.
Diffstat (limited to 'gnu/system/vm.scm')
-rw-r--r--gnu/system/vm.scm6
1 files changed, 5 insertions, 1 deletions
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index 18635fd7e9..a15c4c358b 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -271,7 +271,11 @@ to USB sticks meant to be read-only."
(operating-system-file-systems os)))
(let ((os (operating-system (inherit os)
- (initrd (cut qemu-initrd <> #:volatile-root? volatile?))
+ ;; Since this is meant to be used on real hardware, don't set up
+ ;; QEMU networking.
+ (initrd (cut qemu-initrd <>
+ #:volatile-root? volatile?
+ #:qemu-networking? #f))
;; Force our own root file system.
(file-systems (cons (file-system