diff mbox series

[bug#66935,1/4] services: dovecot: Use make-kill-destructor for action stop.

Message ID 795f0efdf6ad1716a9d3b98589a790855f88391d.1699124200.git.mirai@makinata.eu
State New
Headers show
Series Dovecot service refactor. | expand

Commit Message

Bruno Victal Nov. 4, 2023, 7:05 p.m. UTC 
* gnu/services/mail.scm (dovecot-shepherd-service): Prefer file-append over
string-append. Prefer shepherd mechanism for issuing stop action.

Change-Id: I6a23fbb70ee4e0a2ba5f8e933e85b97283736f5d
---
 gnu/services/mail.scm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)
diff mbox series

Patch

diff --git a/gnu/services/mail.scm b/gnu/services/mail.scm
index 12dcc8e71d..b865a67630 100644
--- a/gnu/services/mail.scm
+++ b/gnu/services/mail.scm
@@ -1580,12 +1580,9 @@  (define (dovecot-shepherd-service config)
            (provision '(dovecot))
            (requirement '(pam networking))
            (start #~(make-forkexec-constructor
-                     (list (string-append #$dovecot "/sbin/dovecot")
+                     (list #$(file-append dovecot "/sbin/dovecot")
                            "-F")))
-           (stop #~(lambda _
-                     (invoke #$(file-append dovecot "/sbin/dovecot")
-                             "stop")
-                     #f))))))
+           (stop #~(make-kill-destructor))))))
 
 (define %dovecot-pam-services
   (list (unix-pam-service "dovecot")))