diff mbox series

[bug#49135] services: libvirt: Add qemu field.

Message ID 20210620133951.17589-1-brice@waegenei.re
State Accepted
Headers show
Series [bug#49135] services: libvirt: Add qemu field. | expand

Checks

Context Check Description
cbaines/comparison success View comparision
cbaines/git branch success View Git branch
cbaines/applying patch success View Laminar job
cbaines/issue success View issue

Commit Message

Brice Waegeneire June 20, 2021, 1:39 p.m. UTC 
* gnu/services/virtualization.scm (libvirt-configuration): Add 'qemu'
field.
(libvirt-service-type): Replace 'qemu' package with the one specified in
the service configuration.
---
 gnu/services/virtualization.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

Comments

Ludovic Courtès Sept. 3, 2021, 4:09 p.m. UTC | #1 
Brice Waegeneire <brice@waegenei.re> skribis:

> * gnu/services/virtualization.scm (libvirt-configuration): Add 'qemu'
> field.
> (libvirt-service-type): Replace 'qemu' package with the one specified in
> the service configuration.

LGTM, thanks!

Ludo’.
Brice Waegeneire Sept. 4, 2021, 7:35 a.m. UTC | #2 
Ludovic Courtès <ludo@gnu.org> writes:

> Brice Waegeneire <brice@waegenei.re> skribis:
>
>> * gnu/services/virtualization.scm (libvirt-configuration): Add 'qemu'
>> field.
>> (libvirt-service-type): Replace 'qemu' package with the one specified in
>> the service configuration.
>
> LGTM, thanks!

Pushed as d0fcce8baf716f8661508db50eaf23b2d5a64a58.
diff mbox series

Patch

diff --git a/gnu/services/virtualization.scm b/gnu/services/virtualization.scm
index 126fa52279..c7ab586ccf 100644
--- a/gnu/services/virtualization.scm
+++ b/gnu/services/virtualization.scm
@@ -131,6 +131,10 @@ 
   (libvirt
    (package libvirt)
    "Libvirt package.")
+  (qemu
+   (package qemu)
+   "Qemu package.")
+
   (listen-tls?
    (boolean #t)
    "Flag listening for secure TLS connections on the public TCP/IP port.
@@ -485,7 +489,7 @@  potential infinite waits blocking libvirt."))
                                      (lambda (config)
                                        (list
                                         (libvirt-configuration-libvirt config)
-                                        qemu)))
+                                        (libvirt-configuration-qemu config))))
                   (service-extension activation-service-type
                                      %libvirt-activation)
                   (service-extension shepherd-root-service-type