services: dicod-service: Honor 'dicod-configuration-dico'.
* gnu/services/dict.scm (dicod-shepherd-service): Use 'dicod-configuration-dico' of config.
This commit is contained in:
parent
ae1e2133b9
commit
e5aade794a
|
@ -105,15 +105,17 @@ database {
|
||||||
(chown rundir (passwd:uid user) (passwd:gid user)))))
|
(chown rundir (passwd:uid user) (passwd:gid user)))))
|
||||||
|
|
||||||
(define (dicod-shepherd-service config)
|
(define (dicod-shepherd-service config)
|
||||||
|
(let ((dicod (file-append (dicod-configuration-dico config)
|
||||||
|
"/bin/dicod"))
|
||||||
|
(dicod.conf (dicod-configuration-file config)))
|
||||||
(list (shepherd-service
|
(list (shepherd-service
|
||||||
(provision '(dicod))
|
(provision '(dicod))
|
||||||
(documentation "Run the dicod daemon.")
|
(documentation "Run the dicod daemon.")
|
||||||
(start #~(make-forkexec-constructor
|
(start #~(make-forkexec-constructor
|
||||||
(list (string-append #$dico "/bin/dicod") "--foreground"
|
(list #$dicod "--foreground"
|
||||||
(string-append
|
(string-append "--config=" #$dicod.conf))
|
||||||
"--config=" #$(dicod-configuration-file config)))
|
|
||||||
#:user "dicod" #:group "dicod"))
|
#:user "dicod" #:group "dicod"))
|
||||||
(stop #~(make-kill-destructor)))))
|
(stop #~(make-kill-destructor))))))
|
||||||
|
|
||||||
(define dicod-service-type
|
(define dicod-service-type
|
||||||
(service-type
|
(service-type
|
||||||
|
|
Loading…
Reference in New Issue