[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

06/08: gnu: virt-manager: Fix default URI check.

From: Ludovic Courtès
Subject: 06/08: gnu: virt-manager: Fix default URI check.
Date: Thu, 19 Oct 2017 06:20:38 -0400 (EDT)

civodul pushed a commit to branch master
in repository guix.

commit 4ad8fbd1856d7169ff457b6627b6a1259ac48ebd
Author: Andy Patterson <address@hidden>
Date:   Sun Oct 15 16:03:27 2017 -0400

    gnu: virt-manager: Fix default URI check.
    Allows virt-manager to connect to qemu://system by default.
    * gnu/packages/virtualization.scm (virt-manager)[arguments]<#:phases>: Add
    Signed-off-by: Ludovic Courtès <address@hidden>
 gnu/packages/virtualization.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm
index 0cfdbc1..b04bdbe 100644
--- a/gnu/packages/virtualization.scm
+++ b/gnu/packages/virtualization.scm
@@ -515,6 +515,13 @@ virtualization library.")
              (substitute* "virtcli/"
                (("/usr") (assoc-ref outputs "out")))
+         (add-after 'unpack 'fix-default-uri
+           (lambda* (#:key inputs #:allow-other-keys)
+             ;; xen is not available for now - so only patch qemu
+             (substitute* "virtManager/"
+               (("/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") 

reply via email to

[Prev in Thread] Current Thread [Next in Thread]