ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: dicod-service: Honor 'dicod-configuration-dico'.

Browse source 
* gnu/services/dict.scm (dicod-shepherd-service): Use
'dicod-configuration-dico' of config.
This commit is contained in:
宋文武 2016-11-19 19:37:30 +08:00
parent ae1e2133b9
commit e5aade794a
No known key found for this signature in database
GPG key ID: 26525665AE727D37
1 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
gnu/services/dict.scm
View file

@ -105,15 +105,17 @@ (define %dicod-activation
(chown rundir (passwd:uid user) (passwd:gid user)))))
(define (dicod-shepherd-service config)
(list (shepherd-service
(provision '(dicod))
(documentation "Run the dicod daemon.")
(start #~(make-forkexec-constructor
(list (string-append #$dico "/bin/dicod") "--foreground"
(string-append
"--config=" #$(dicod-configuration-file config)))
#:user "dicod" #:group "dicod"))
(stop #~(make-kill-destructor)))))
(let ((dicod (file-append (dicod-configuration-dico config)
"/bin/dicod"))
(dicod.conf (dicod-configuration-file config)))
(list (shepherd-service
(provision '(dicod))
(documentation "Run the dicod daemon.")
(start #~(make-forkexec-constructor
(list #$dicod "--foreground"
(string-append "--config=" #$dicod.conf))
#:user "dicod" #:group "dicod"))
(stop #~(make-kill-destructor))))))
(define dicod-service-type
(service-type