From 8eeadc8cb8dce9b918ffe5048758936d2bf1ebd6 Mon Sep 17 00:00:00 2001 From: Oleg Pykhalov Date: Fri, 9 Sep 2022 23:48:44 +0300 Subject: services: libvirt: Fix listen TCP. * gnu/services/virtualization.scm (libvirt-shepherd-service): Add '--listen' argument if 'listen-tcp?' is true. --- gnu/services/virtualization.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'gnu/services') diff --git a/gnu/services/virtualization.scm b/gnu/services/virtualization.scm index 406752b35c..8b480e1bd3 100644 --- a/gnu/services/virtualization.scm +++ b/gnu/services/virtualization.scm @@ -3,6 +3,7 @@ ;;; Copyright © 2018, 2020-2022 Ludovic Courtès ;;; Copyright © 2020,2021 Jan (janneke) Nieuwenhuizen ;;; Copyright © 2021 Timotej Lazar +;;; Copyright © 2022 Oleg Pykhalov ;;; ;;; This file is part of GNU Guix. ;;; @@ -470,13 +471,15 @@ potential infinite waits blocking libvirt.")) (define (libvirt-shepherd-service config) (let* ((config-file (libvirt-conf-file config)) - (libvirt (libvirt-configuration-libvirt config))) + (libvirt (libvirt-configuration-libvirt config)) + (listen-tcp? (libvirt-configuration-listen-tcp? config))) (list (shepherd-service (documentation "Run the libvirt daemon.") (provision '(libvirtd)) (start #~(make-forkexec-constructor (list (string-append #$libvirt "/sbin/libvirtd") - "-f" #$config-file) + "-f" #$config-file + #$@(if listen-tcp? '("--listen") '())) ;; For finding qemu and ip binaries. #:environment-variables (list (string-append -- cgit v1.2.3