diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2023-08-05 16:18:58 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-08-20 22:47:25 +0200 |
| commit | 171ab374f9998e3664a4c6a62ea5b82ec5a818bc (patch) | |
| tree | 455368e8795a653107b77f5c28585107eea85155 /gnu/services/dict.scm | |
| parent | 78748c619a533bd23a8fc55e2a705ed23567c72e (diff) | |
services: dicod: Remove Shepherd < 0.9.0 compatibility layer.
* gnu/services/dict.scm (dicod-shepherd-service): Use
'make-inetd-constructor' and 'make-inetd-destructor' unconditionally.
Diffstat (limited to 'gnu/services/dict.scm')
| -rw-r--r-- | gnu/services/dict.scm | 31 |
1 files changed, 12 insertions, 19 deletions
diff --git a/gnu/services/dict.scm b/gnu/services/dict.scm index 23e1d36364..7d48953ef1 100644 --- a/gnu/services/dict.scm +++ b/gnu/services/dict.scm @@ -167,25 +167,18 @@ database { (provision '(dicod)) (requirement '(user-processes)) (documentation "Run the dicod daemon.") - (start #~(if (defined? 'make-inetd-constructor) - (make-inetd-constructor - (list #$dicod "--inetd" "--foreground" - (string-append "--config=" #$dicod.conf)) - (map (lambda (interface) - (endpoint - (addrinfo:addr - (car (getaddrinfo interface "dict"))))) - '#$interfaces) - #:requirements '#$requirement - #:user "dicod" #:group "dicod" - #:service-name-stem "dicod") - (make-forkexec-constructor - (list #$dicod "--foreground" - (string-append "--config=" #$dicod.conf)) - #:user "dicod" #:group "dicod"))) - (stop #~(if (defined? 'make-inetd-destructor) - (make-inetd-destructor) - (make-kill-destructor))) + (start #~(make-inetd-constructor + (list #$dicod "--inetd" "--foreground" + (string-append "--config=" #$dicod.conf)) + (map (lambda (interface) + (endpoint + (addrinfo:addr + (car (getaddrinfo interface "dict"))))) + '#$interfaces) + #:requirements '#$requirement + #:user "dicod" #:group "dicod" + #:service-name-stem "dicod")) + (stop #~(make-inetd-destructor)) (actions (list (shepherd-configuration-action dicod.conf))))))) (define dicod-service-type |