ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: libvirt: Wrap with iproute and qemu.

Browse source 
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:
Christopher Baines 2017-08-19 20:07:47 +01:00
parent 0577a3fd92
commit 903e051a71
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/packages/virtualization.scm
View file

@ -361,7 +361,16 @@ (define-public libvirt
(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)