services: libvirt: Add Shepherd reload action.

* gnu/services/virtualization.scm (libvirt-shepherd-service):
  Add a reload action that sends SIGHUP to libvirtd.

Change-Id: Ie424dcc45dc0e93a979a0a8b7e680c28bf4ea387
Merges: https://codeberg.org/guix/guix/pulls/8204
Reviewed-by: Maxim Cournoyer <maxim@guixotic.coop>
Signed-off-by: Nguyễn Gia Phong <cnx@loang.net>

1 files changed, 10 insertions, 1 deletions

diff --git a/gnu/services/virtualization.scm b/gnu/services/virtualization.scm
index 7d15abaf619..c6bf5360a6d 100644
--- a/gnu/services/virtualization.scm
+++ b/gnu/services/virtualization.scm
@@ -532,7 +532,16 @@ avoid potential infinite waits blocking libvirt."))
                       (string-append
                        "LINUX_MODULE_DIRECTORY="
                        "/run/booted-system/kernel/lib/modules"))))
-           (stop #~(make-kill-destructor))))))
+           (stop #~(make-kill-destructor))
+           (actions
+            (list (shepherd-signal-action
+                   'reload SIGHUP
+                   #:documentation "Send a @code{SIGHUP} signal
+to @command{libvirtd} to reload its configuration (both its configuration file,
+and the content of @file{/etc/libvirtd}, in which live the XML files
+that define e.g. the VMs and their network)."
+                   #:message "Service libvirtd has been asked \
+to reload its configuration.")))))))
 
 (define (/etc/qemu/firmware config)
   (let ((firmwares (libvirt-configuration-firmwares config)))