futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

services: libvirt: Fix listen TCP.

Browse Source 
* gnu/services/virtualization.scm (libvirt-shepherd-service): Add '--listen'
argument if 'listen-tcp?' is true.
This commit is contained in:
Oleg Pykhalov 2022-09-09 23:48:44 +03:00
parent e08b1669b4
commit 8eeadc8cb8
No known key found for this signature in database
GPG Key ID: 167F8EA5001AFA9C
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gnu/services/virtualization.scm
View File

@ -3,6 +3,7 @@
;;; Copyright © 2018, 2020-2022 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2018, 2020-2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020,2021 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2020,2021 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2021 Timotej Lazar <timotej.lazar@araneo.si> ;;; Copyright © 2021 Timotej Lazar <timotej.lazar@araneo.si>
;;; Copyright © 2022 Oleg Pykhalov <go.wigust@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -470,13 +471,15 @@ potential infinite waits blocking libvirt."))
(define (libvirt-shepherd-service config) (define (libvirt-shepherd-service config)
(let* ((config-file (libvirt-conf-file 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 (list (shepherd-service
(documentation "Run the libvirt daemon.") (documentation "Run the libvirt daemon.")
(provision '(libvirtd)) (provision '(libvirtd))
(start #~(make-forkexec-constructor (start #~(make-forkexec-constructor
(list (string-append #$libvirt "/sbin/libvirtd") (list (string-append #$libvirt "/sbin/libvirtd")
"-f" #$config-file) "-f" #$config-file
#$@(if listen-tcp? '("--listen") '()))
;; For finding qemu and ip binaries. ;; For finding qemu and ip binaries.
#:environment-variables #:environment-variables
(list (string-append (list (string-append