services: Add and use shepherd-signal-action.

* gnu/services/shepherd.scm (shepherd-signal-action): New procedure.

* gnu/services/audio.scm (mpd-shepherd-service): Use it for actions.
* gnu/services/base.scm (syslog-shepherd-service):
* gnu/services/base.scm (dnsmasq-shepherd-service):
* gnu/services/file-sharing.scm (transmission-daemon-shepherd-service):
* gnu/services/monitoring.scm (vnstat-shepherd-service):
* gnu/services/mail.scm (rspamd-shepherd-service):

* doc/guix.texi (shepherd-signal-action): Document it.

Change-Id: Ief5e00c7d430ec4aa28c3ef11d0ef9897793b45f
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Merges: #6097

1 files changed, 8 insertions, 16 deletions

diff --git a/gnu/services/dns.scm b/gnu/services/dns.scm
index 42a65a27677..e0cab485884 100644
--- a/gnu/services/dns.scm
+++ b/gnu/services/dns.scm
@@ -969,24 +969,16 @@ cache.size = 100 * MB
       (mkdir-p "/var/lib/misc")))
 
 (define (dnsmasq-service-reload-action config)
-  (match-record config <dnsmasq-configuration> ()
-    (shepherd-action
-     (name 'reload)
-     (documentation "Send a @code{SIGHUP} signal to @command{dnsmasq} to clear
-cache and reload hosts files.")
-     (procedure #~(lambda (running)
-                    (let ((pid (process-id running)))
-                      (kill pid SIGHUP)))))))
+  (shepherd-signal-action
+   'reload SIGHUP
+   #:documentation "Send a @code{SIGHUP} signal to @command{dnsmasq} to clear
+cache and reload hosts files."))
 
 (define (dnsmasq-service-stats-action config)
-  (match-record config <dnsmasq-configuration> ()
-    (shepherd-action
-     (name 'stats)
-     (documentation "Send a @code{SIGUSR1} to write statistics to the system
-log.")
-     (procedure #~(lambda (running)
-                    (let ((pid (process-id running)))
-                      (kill pid SIGUSR1)))))))
+  (shepherd-signal-action
+   'stats SIGUSR1
+   #:documentation "Send a @code{SIGUSR1} to write statistics to the system
+log."))
 
 (define dnsmasq-service-type
   (service-type