diff options
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/services/base.scm | 5 | ||||
| -rw-r--r-- | gnu/services/dict.scm | 5 | ||||
| -rw-r--r-- | gnu/services/messaging.scm | 4 |
3 files changed, 11 insertions, 3 deletions
diff --git a/gnu/services/base.scm b/gnu/services/base.scm index e324864744..bcec888587 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -1914,7 +1914,10 @@ raise a deprecation warning if the 'compression-level' field was used." (make-systemd-constructor #$command #$endpoints #$@options) (make-forkexec-constructor #$command #$@options))) - (stop #~(make-kill-destructor))))))) + (stop #~(if (and (defined? 'make-systemd-destructor) + #$(not advertise?)) + (make-systemd-destructor) + (make-kill-destructor)))))))) (define %guix-publish-accounts (list (user-group (name "guix-publish") (system? #t)) 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 diff --git a/gnu/services/messaging.scm b/gnu/services/messaging.scm index f9e7e2aa09..26d47f47de 100644 --- a/gnu/services/messaging.scm +++ b/gnu/services/messaging.scm @@ -883,7 +883,9 @@ string, you could instantiate a prosody service like this: (source "/var/lib/bitlbee") (target source) (writable? #t)))))) - (stop #~(make-kill-destructor))))))))) + (stop #~(if (defined? 'make-inetd-destructor) + (make-inetd-destructor) + (make-kill-destructor)))))))))) (define %bitlbee-accounts ;; User group and account to run BitlBee. |