gnu: vm: Really create a QCOW2-format image.

* gnu/system/vm.scm (expression->derivation-in-linux-vm): Pass "-f
  qcow2" to 'qemu-img create'.
This commit is contained in:
Ludovic Courtès 2013-11-19 00:03:29 +01:00
parent d03bb6532c
commit 30e457501d

View file

@ -134,7 +134,7 @@ (define builder
(setenv "PATH" cu)
,(if make-disk-image?
`(zero? (system* img "create" "image.qcow2"
`(zero? (system* img "create" "-f" "qcow2" "image.qcow2"
,(number->string disk-image-size)))
'(begin))