07/08: gnu: virt-manager: Fix qemu path substitution.

[guix-commits]

hako pushed a commit to branch master
in repository guix.

commit e1a084f1a820d409ddeead00bf6185f13fee9b17
Author: Hilton Chain <hako@ultrarare.space>
AuthorDate: Wed Jan 24 00:02:16 2024 +0800

    gnu: virt-manager: Fix qemu path substitution.
    
    * gnu/packages/virtualization.scm (virt-manager)[arguments]<#:phases>: 
Adjust
    ‘fix-default-uri’ according to source change.
    
    Change-Id: Ic5085841db4759096b844d6f92f81d90554709d1
---
 gnu/packages/virtualization.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm
index 1c971471c7..5888d777ea 100644
--- a/gnu/packages/virtualization.scm
+++ b/gnu/packages/virtualization.scm
@@ -1645,8 +1645,8 @@ virtualization library.")
                  (lambda* (#:key inputs #:allow-other-keys)
                    ;; Xen is not available for now - so only patch qemu.
                    (substitute* "virtManager/createconn.py"
-                     (("/usr(/bin/qemu-system-[a-zA-Z0-9_-]+)" _ suffix)
-                      (search-input-file inputs suffix)))))
+                     (("/usr(/bin/qemu-system-\\*)" _ suffix)
+                      (string-append #$(this-package-input "qemu") suffix)))))
                (add-before 'wrap 'wrap-with-GI_TYPELIB_PATH
                  (lambda* (#:key inputs #:allow-other-keys)
                    (let* ((bin       (string-append #$output "/bin"))