mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 05:57:04 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: dicod: Remove Shepherd < 0.9.0 compatibility layer.

Browse source 
* gnu/services/dict.scm (dicod-shepherd-service): Use
'make-inetd-constructor' and 'make-inetd-destructor' unconditionally.
This commit is contained in:
Ludovic Courtès 2023-08-05 16:18:58 +02:00
parent 78748c619a
commit 171ab374f9
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 12 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
gnu/services/dict.scm
View file

@ -167,8 +167,7 @@ (define (dicod-shepherd-service config)
(provision '(dicod)) (provision '(dicod))
(requirement '(user-processes)) (requirement '(user-processes))
(documentation "Run the dicod daemon.") (documentation "Run the dicod daemon.")
(start #~(if (defined? 'make-inetd-constructor) (start #~(make-inetd-constructor
(make-inetd-constructor
(list #$dicod "--inetd" "--foreground" (list #$dicod "--inetd" "--foreground"
(string-append "--config=" #$dicod.conf)) (string-append "--config=" #$dicod.conf))
(map (lambda (interface) (map (lambda (interface)
@ -178,14 +177,8 @@ (define (dicod-shepherd-service config)
'#$interfaces) '#$interfaces)
#:requirements '#$requirement #:requirements '#$requirement
#:user "dicod" #:group "dicod" #:user "dicod" #:group "dicod"
#:service-name-stem "dicod") #:service-name-stem "dicod"))
(make-forkexec-constructor (stop #~(make-inetd-destructor))
(list #$dicod "--foreground"
(string-append "--config=" #$dicod.conf))
#:user "dicod" #:group "dicod")))
(stop #~(if (defined? 'make-inetd-destructor)
(make-inetd-destructor)
(make-kill-destructor)))
(actions (list (shepherd-configuration-action dicod.conf))))))) (actions (list (shepherd-configuration-action dicod.conf)))))))
(define dicod-service-type (define dicod-service-type