diff options
Diffstat (limited to 'vkraus/services/disfluid.scm')
| -rw-r--r-- | vkraus/services/disfluid.scm | 64 |
1 files changed, 32 insertions, 32 deletions
diff --git a/vkraus/services/disfluid.scm b/vkraus/services/disfluid.scm index 7dbcbb3..d2ac961 100644 --- a/vkraus/services/disfluid.scm +++ b/vkraus/services/disfluid.scm @@ -54,8 +54,8 @@ (define configuration->shepherd-service (match-lambda - ((($ <disfluid-configuration> - disfluid ccs configuration port extra-options)) + (($ <disfluid-configuration> + disfluid ccs configuration port extra-options) `(,(shepherd-service (provision (list "disfluid")) (documentation (format #f "Run disfluid")) @@ -64,34 +64,34 @@ (gnu system file-systems))) (start (with-imported-modules - (source-module-closure - '((gnu build shepherd) - (gnu system file-systems))) - #~(begin - (let* ((user (getpwnam "disfluid")) - (prepare-directory - (lambda (dir) - (mkdir-p dir) - (chown dir (passwd:uid user) (passwd:gid user)) - (chmod dir #o700)))) - (prepare-directory "/var/log/disfluid") - (prepare-directory "/var/lib/disfluid") - (prepare-directory "/var/cache/disfluid")) - (make-forkexec-constructor - (list - (string-append #$disfluid "/bin/disfluid") - "-S" #$ccs - "-c" #$configuration - "-p" (with-output-to-string (lambda () (display #$port))) - "-l" "server.log" - "-e" "server.err" - #$@extra-options) - #:user "disfluid" - #:group "disfluid" - #:directory "/var/log/disfluid" - #:environment-variables - '("XDG_DATA_HOME=/var/lib/disfluid" - "XDG_CACHE_HOME=/var/cache/disfluid"))))) + (source-module-closure + '((gnu build shepherd) + (gnu system file-systems))) + #~(begin + (let* ((user (getpwnam "disfluid")) + (prepare-directory + (lambda (dir) + (mkdir-p dir) + (chown dir (passwd:uid user) (passwd:gid user)) + (chmod dir #o700)))) + (prepare-directory "/var/log/disfluid") + (prepare-directory "/var/lib/disfluid") + (prepare-directory "/var/cache/disfluid")) + (make-forkexec-constructor + (list + (string-append #$disfluid "/bin/disfluid") + "-S" #$ccs + "-c" #$configuration + "-p" (with-output-to-string (lambda () (display #$port))) + "-l" "server.log" + "-e" "server.err" + #$@extra-options) + #:user "disfluid" + #:group "disfluid" + #:directory "/var/log/disfluid" + #:environment-variables + '("XDG_DATA_HOME=/var/lib/disfluid" + "XDG_CACHE_HOME=/var/cache/disfluid"))))) (stop #~(make-kill-destructor))))))) (define %disfluid-accounts @@ -107,8 +107,8 @@ (define configuration->log-rotation (match-lambda - ((($ <disfluid-configuration> - disfluid ccs configuration port extra-options)) + (($ <disfluid-configuration> + disfluid ccs configuration port extra-options) `(,(log-rotation (frequency 'daily) (files |