summaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-05-19 22:00:46 +0200
committerLudovic Courtès <ludo@gnu.org>2014-05-19 23:52:39 +0200
commite38e18ff010e53a788cec30f25ee3d59341b0708 (patch)
treed4a4b133ca9430f438ea284332ca6327862d8cbe /gnu
parenta54aefead6bfcc35bce0ac2aebb4cd32eb94208e (diff)
vm: Make the device name a parameter.
* guix/build/vm.scm (initialize-partition-table): Honor 'device' parameter. (initialize-hard-disk): Add 'device' parameter and honor it. * gnu/system/vm.scm (qemu-image): Adjust accordingly.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/system/vm.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index 4bf0e06081..ee9ac81ce7 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -230,7 +230,8 @@ the image."
(let ((graphs '#$(match inputs
(((names . _) ...)
names))))
- (initialize-hard-disk #:grub.cfg #$grub-configuration
+ (initialize-hard-disk "/dev/sda"
+ #:grub.cfg #$grub-configuration
#:closures graphs
#:copy-closures? #$copy-inputs?
#:register-closures? #$register-closures?