diff options
| author | Christopher Baines <mail@cbaines.net> | 2017-08-19 20:07:47 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2017-08-23 12:44:21 +0100 |
| commit | 903e051a71467bc96a054c9b4ed89348fdae8977 (patch) | |
| tree | 6514b3d8ed910962975a7dd11572e0e0c56879f6 | |
| parent | 0577a3fd92be2ae8244894155bfa24a559ef31b8 (diff) | |
| download | guix-903e051a71467bc96a054c9b4ed89348fdae8977.tar.gz | |
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.
| -rw-r--r-- | gnu/packages/virtualization.scm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm index ab364cd1fb..d76a6dfd85 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) |