[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/03: gnu: libvirt: Wrap with iproute and qemu.
From: |
Christopher Baines |
Subject: |
01/03: gnu: libvirt: Wrap with iproute and qemu. |
Date: |
Wed, 23 Aug 2017 07:50:07 -0400 (EDT) |
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)