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 'fix-default-uri. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
parent
b764a9f5e0
commit
4ad8fbd185
|
@ -515,6 +515,13 @@ virtualization library.")
|
||||||
(substitute* "virtcli/cliconfig.py"
|
(substitute* "virtcli/cliconfig.py"
|
||||||
(("/usr") (assoc-ref outputs "out")))
|
(("/usr") (assoc-ref outputs "out")))
|
||||||
#t))
|
#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
|
(add-before 'wrap 'wrap-with-GI_TYPELIB_PATH
|
||||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||||
(let* ((bin (string-append (assoc-ref outputs "out") "/bin"))
|
(let* ((bin (string-append (assoc-ref outputs "out") "/bin"))
|
||||||
|
|
Loading…
Reference in New Issue