[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: services: libvirt: Fix listen TCP.
From: |
guix-commits |
Subject: |
branch master updated: services: libvirt: Fix listen TCP. |
Date: |
Fri, 09 Sep 2022 16:55:07 -0400 |
This is an automated email from the git hooks/post-receive script.
wigust pushed a commit to branch master
in repository guix.
The following commit(s) were added to refs/heads/master by this push:
new 8eeadc8cb8 services: libvirt: Fix listen TCP.
8eeadc8cb8 is described below
commit 8eeadc8cb8dce9b918ffe5048758936d2bf1ebd6
Author: Oleg Pykhalov <go.wigust@gmail.com>
AuthorDate: Fri Sep 9 23:48:44 2022 +0300
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(-)
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 <ludo@gnu.org>
;;; Copyright © 2020,2021 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2021 Timotej Lazar <timotej.lazar@araneo.si>
+;;; Copyright © 2022 Oleg Pykhalov <go.wigust@gmail.com>
;;;
;;; 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: services: libvirt: Fix listen TCP.,
guix-commits <=