diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2017-04-11 10:47:38 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-05-20 10:17:52 +0200 |
| commit | fd5a30ab7b999f9b1095426054b5fcdfdacddc6f (patch) | |
| tree | 578ebc0249d8984cf7d286d7d747cebd69a5ce09 /gnu/system | |
| parent | c383dc520f4b71bcb99115768bfafa00df85f9d1 (diff) | |
| download | guix-fd5a30ab7b999f9b1095426054b5fcdfdacddc6f.tar guix-fd5a30ab7b999f9b1095426054b5fcdfdacddc6f.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')
| -rw-r--r-- | gnu/system/vm.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm index 2c8b954c80..71bc55d7d8 100644 --- a/gnu/system/vm.scm +++ b/gnu/system/vm.scm @@ -229,7 +229,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 |