01/03: gnu: libvirt: Wrap with iproute and qemu.

[Christopher Baines]

cbaines pushed a commit to branch master
in repository guix.

commit 903e051a71467bc96a054c9b4ed89348fdae8977
Author: Christopher Baines <address@hidden>
Date:   Sat Aug 19 20:07:47 2017 +0100

    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.
---
 gnu/packages/virtualization.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm
index ab364cd..d76a6df 100644
--- a/gnu/packages/virtualization.scm
+++ b/gnu/packages/virtualization.scm
@@ -361,7 +361,16 @@ manage system or application containers.")
            (lambda _
              (zero? (system* "make" "install"
                              "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
      `(("libxml2" ,libxml2)
        ("gnutls" ,gnutls)