From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:37434) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1e3p9m-0000uc-DJ for guix-patches@gnu.org; Sun, 15 Oct 2017 16:05:07 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1e3p9l-0005U6-EX for guix-patches@gnu.org; Sun, 15 Oct 2017 16:05:06 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:33329) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1e3p9l-0005Tt-BH for guix-patches@gnu.org; Sun, 15 Oct 2017 16:05:05 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1e3p9l-0001nx-2W for guix-patches@gnu.org; Sun, 15 Oct 2017 16:05:05 -0400 Subject: [bug#28853] [PATCH 7/8] gnu: virt-manager: Fix default URI check. Resent-Message-ID: From: Andy Patterson Date: Sun, 15 Oct 2017 16:03:27 -0400 Message-Id: <20171015200328.4830-7-ajpatter@uwaterloo.ca> In-Reply-To: <20171015151545.024a589f@uwaterloo.ca> References: <20171015151545.024a589f@uwaterloo.ca> 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: 28853@debbugs.gnu.org Allows virt-manager to connect to qemu://system by default. * gnu/packages/virtualization.scm (virt-manager)[arguments]<#:phases>: Add 'fix-default-uri. --- gnu/packages/virtualization.scm | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm index f2494f74f..bdf9c8274 100644 --- a/gnu/packages/virtualization.scm +++ b/gnu/packages/virtualization.scm @@ -520,6 +520,13 @@ virtualization library.") (substitute* "virtcli/cliconfig.py" (("/usr") (assoc-ref outputs "out"))) #t)) + (add-after 'unpack 'fix-default-uri + (lambda* (#:key inputs #:allow-other-keys) + ;; xen is not available for now - so only patch qemu + (substitute* "virtManager/connect.py" + (("/usr(/bin/qemu-system)" _ suffix) + (string-append (assoc-ref inputs "qemu") suffix))) + #t)) (add-before 'wrap 'wrap-with-GI_TYPELIB_PATH (lambda* (#:key inputs outputs #:allow-other-keys) (let* ((bin (string-append (assoc-ref outputs "out") "/bin")) -- 2.14.2