diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-05-02 17:27:13 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-05-02 17:57:30 +0200 |
| commit | 2a37f174becbafd70591f6eb1d98493c5c1df0e2 (patch) | |
| tree | 028c0f836be69b4829828bdb248455371eb5d4ff /gnu/services/dict.scm | |
| parent | 39d6c13fda7e9bad7116d450a28a1fcafaef03f8 (diff) | |
| download | guix-2a37f174becbafd70591f6eb1d98493c5c1df0e2.tar guix-2a37f174becbafd70591f6eb1d98493c5c1df0e2.tar.gz | |
services: Make sure Shepherd destructors match constructors.
This is a followup to b06ecc57515d4e3c8b2228e8142654e9a26ba6e1,
211fe3f66e6dfdaa64974931c458ab1d92afc182, and
fd57ce267c4083fe98242caa31075d2bd62903bf.
* gnu/services/base.scm (guix-publish-shepherd-service): Change 'stop'
method to use 'make-systemd-destructor' when 'make-systemd-constructor'
is used.
* gnu/services/dict.scm (dicod-shepherd-service): Change 'stop' method
to use 'make-inetd-destructor' when 'make-inetd-constructor' is used.
* gnu/services/messaging.scm (bitlbee-shepherd-service): Likewise.
Diffstat (limited to 'gnu/services/dict.scm')
| -rw-r--r-- | gnu/services/dict.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gnu/services/dict.scm b/gnu/services/dict.scm index 109917c05c..f042219cbd 100644 --- a/gnu/services/dict.scm +++ b/gnu/services/dict.scm @@ -179,7 +179,10 @@ database { (list #$dicod "--foreground" (string-append "--config=" #$dicod.conf)) #:user "dicod" #:group "dicod"))) - (stop #~(make-kill-destructor)))))) + (stop #~(if (and (defined? 'make-inetd-destructor) + #$(= 1 (length interfaces))) ;XXX + (make-inetd-destructor) + (make-kill-destructor))))))) (define dicod-service-type (service-type |