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
1 changed files with 1 additions and 1 deletions

View File

@ -134,7 +134,7 @@ made available under the /xchg CIFS share."
(setenv "PATH" cu) (setenv "PATH" cu)
,(if make-disk-image? ,(if make-disk-image?
`(zero? (system* img "create" "image.qcow2" `(zero? (system* img "create" "-f" "qcow2" "image.qcow2"
,(number->string disk-image-size))) ,(number->string disk-image-size)))
'(begin)) '(begin))