diff options
| author | Marius Bakke <[email protected]> | 2022-09-09 23:04:13 +0200 |
|---|---|---|
| committer | Marius Bakke <[email protected]> | 2022-09-09 23:04:13 +0200 |
| commit | 9ef33dce949214d018774a4ff82f069b1a5e1f0f (patch) | |
| tree | 232590cdca27fc7c0a047d1903db7dbd0a6b1f40 /gnu/services/virtualization.scm | |
| parent | 5fcbbe37c08dbe913d62523695a19357a08e2701 (diff) | |
| parent | 8fbd8c82455e6f1bbbe623965b2452f8f8a01242 (diff) | |
Merge branch 'staging' into core-updates
Diffstat (limited to 'gnu/services/virtualization.scm')
| -rw-r--r-- | gnu/services/virtualization.scm | 7 |
1 files 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 <[email protected]> ;;; Copyright © 2020,2021 Jan (janneke) Nieuwenhuizen <[email protected]> ;;; Copyright © 2021 Timotej Lazar <[email protected]> +;;; Copyright © 2022 Oleg Pykhalov <[email protected]> ;;; ;;; 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 |