From 30e457501dfba305e0554532f79594e567ca844b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 19 Nov 2013 00:03:29 +0100
Subject: [PATCH] gnu: vm: Really create a QCOW2-format image.

* gnu/system/vm.scm (expression->derivation-in-linux-vm): Pass "-f
  qcow2" to 'qemu-img create'.
---
 gnu/system/vm.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index db055fa5fc..2413a97150 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -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))