gnu: libvirt: Wrap with iproute and qemu.
libvirtd runs qemu if it's configured to use it, and also uses the ip command. * gnu/packages/virtualization.scm (libvirt)[arguments]: Add wrap-libvirtd phase.
This commit is contained in:
parent
0577a3fd92
commit
903e051a71
|
@ -361,7 +361,16 @@ manage system or application containers.")
|
||||||
(lambda _
|
(lambda _
|
||||||
(zero? (system* "make" "install"
|
(zero? (system* "make" "install"
|
||||||
"sysconfdir=/tmp/etc"
|
"sysconfdir=/tmp/etc"
|
||||||
"localstatedir=/tmp/var")))))))
|
"localstatedir=/tmp/var"))))
|
||||||
|
(add-after 'install 'wrap-libvirtd
|
||||||
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||||
|
(let ((out (assoc-ref outputs "out")))
|
||||||
|
(wrap-program (string-append out "/sbin/libvirtd")
|
||||||
|
`("PATH" = (,(string-append (assoc-ref inputs "iproute")
|
||||||
|
"/sbin")
|
||||||
|
,(string-append (assoc-ref inputs "qemu")
|
||||||
|
"/bin"))))
|
||||||
|
#t))))))
|
||||||
(inputs
|
(inputs
|
||||||
`(("libxml2" ,libxml2)
|
`(("libxml2" ,libxml2)
|
||||||
("gnutls" ,gnutls)
|
("gnutls" ,gnutls)
|
||||||
|
|
Loading…
Reference in New Issue