From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:57052) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eMZK0-0005qM-1N for guix-patches@gnu.org; Wed, 06 Dec 2017 08:01:21 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1eMZJv-0005ny-7Z for guix-patches@gnu.org; Wed, 06 Dec 2017 08:01:08 -0500 Received: from debbugs.gnu.org ([208.118.235.43]:39940) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1eMZJv-0005nj-1E for guix-patches@gnu.org; Wed, 06 Dec 2017 08:01:03 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1eMZJu-0001bh-Nu for guix-patches@gnu.org; Wed, 06 Dec 2017 08:01:02 -0500 Subject: [bug#29409] [PATCH 2/4] build: vm: Use qemu drive device parameter. Resent-Message-ID: From: m.othacehe@gmail.com Date: Wed, 6 Dec 2017 13:59:51 +0100 Message-Id: <1512565193-3234-3-git-send-email-m.othacehe@gmail.com> In-Reply-To: <1512565193-3234-1-git-send-email-m.othacehe@gmail.com> References: <1512565193-3234-1-git-send-email-m.othacehe@gmail.com> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 29409@debbugs.gnu.org From: Mathieu Othacehe * gnu/build/vm.scm (load-in-linux-vm): As per network arguments, use device parameter to define drive device. --- gnu/build/vm.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/gnu/build/vm.scm b/gnu/build/vm.scm index 9e868f6..0b1b9da 100644 --- a/gnu/build/vm.scm +++ b/gnu/build/vm.scm @@ -126,10 +126,12 @@ the #:references-graphs parameter of 'derivation'." "-initrd" initrd "-append" (string-append "console=ttyS0 --load=" builder) + "-device" "virtio-blk,drive=myhd" (append (if make-disk-image? - `("-drive" ,(string-append "file=" output - ",if=virtio")) + `("-drive" ,(string-append "if=none,file=" output + ",format=" disk-image-format + ",id=myhd")) '()) ;; Only enable kvm if we see /dev/kvm exists. ;; This allows users without hardware virtualization to still -- 2.7.4