aboutsummaryrefslogtreecommitdiff
path: root/gnu/system/vm.scm
diff options
context:
space:
mode:
authorMarius Bakke <mbakke@fastmail.com>2017-04-11 10:47:38 +0200
committerMarius Bakke <mbakke@fastmail.com>2017-05-19 12:59:25 +0200
commit01cc84dadee4571e5793658e912ee05d60fbf060 (patch)
treed7a407b6666d44d9d1e40e94276284d7d4006f5f /gnu/system/vm.scm
parente7fbd49132406bb9ec12141ac77ac401f58ee267 (diff)
downloadgnu-guix-01cc84dadee4571e5793658e912ee05d60fbf060.tar
gnu-guix-01cc84dadee4571e5793658e912ee05d60fbf060.tar.gz
vm: Support arbitrary partition flags.
* gnu/build/vm.scm (<partition>): Change BOOTABLE? to FLAGS. (initialize-partition-table): Pass each flag to parted. (initialize-hard-disk): Locate boot partition. * gnu/system/vm.scm (qemu-image): Adjust partition flags.
Diffstat (limited to 'gnu/system/vm.scm')
-rw-r--r--gnu/system/vm.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index 2ee5c2b1e7..e0e4d33d45 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -231,7 +231,7 @@ the image."
(* 10 (expt 2 20))))
(label #$file-system-label)
(file-system #$file-system-type)
- (bootable? #t)
+ (flags '(boot))
(initializer initialize)))))
(initialize-hard-disk "/dev/vda"
#:partitions partitions