diff options
| author | 宋文武 <iyzsong@gmail.com> | 2016-11-19 19:37:30 +0800 |
|---|---|---|
| committer | 宋文武 <iyzsong@gmail.com> | 2016-11-19 19:37:30 +0800 |
| commit | e5aade794a89a742b1f9663d42bbbfd24955718b (patch) | |
| tree | 788eaca2a6866bd24ac89da93a2f61153836aa91 | |
| parent | ae1e2133b9cb776f557ffcf2cb61888618c1d509 (diff) | |
| download | guix-e5aade794a89a742b1f9663d42bbbfd24955718b.tar guix-e5aade794a89a742b1f9663d42bbbfd24955718b.tar.gz | |
services: dicod-service: Honor 'dicod-configuration-dico'.
* gnu/services/dict.scm (dicod-shepherd-service): Use
'dicod-configuration-dico' of config.
| -rw-r--r-- | gnu/services/dict.scm | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/gnu/services/dict.scm b/gnu/services/dict.scm index da5d004701..303067037f 100644 --- a/gnu/services/dict.scm +++ b/gnu/services/dict.scm @@ -105,15 +105,17 @@ database { (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 |