diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-05-19 22:00:46 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-05-19 23:52:39 +0200 |
| commit | e38e18ff010e53a788cec30f25ee3d59341b0708 (patch) | |
| tree | d4a4b133ca9430f438ea284332ca6327862d8cbe /gnu/system/vm.scm | |
| parent | a54aefead6bfcc35bce0ac2aebb4cd32eb94208e (diff) | |
| download | gnu-guix-e38e18ff010e53a788cec30f25ee3d59341b0708.tar gnu-guix-e38e18ff010e53a788cec30f25ee3d59341b0708.tar.gz | |
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/system/vm.scm')
| -rw-r--r-- | gnu/system/vm.scm | 3 |
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? |