diff options
Diffstat (limited to 'gnu/services/base.scm')
-rw-r--r-- | gnu/services/base.scm | 5 |
1 files changed, 4 insertions, 1 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)) |