diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2023-03-16 17:29:03 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-03-16 17:29:03 +0100 |
| commit | c68648a8a503c59b17ec38107e7c787f3b7370f3 (patch) | |
| tree | fd55c38bee9ca0cf7abfaf3b8ccfecdd4132c36a /gnu/home | |
| parent | 6afd1fd6bccf3093c6e7b29ed816ee0d5a10c537 (diff) | |
| download | guix-c68648a8a503c59b17ec38107e7c787f3b7370f3.tar.gz | |
home: services: znc: Remove host-side use of (shepherd support).
This is a followup to 193f547ca35eb49ef57bd9a25b67cb3965f10b03, which inadvertently pulled in (shepherd support) on the host side. * gnu/home/services/messaging.scm (home-znc-services): Change 'command' and 'log-file' to gexps. Add 'modules' field to 'shepherd-service'.
Diffstat (limited to 'gnu/home')
| -rw-r--r-- | gnu/home/services/messaging.scm | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/gnu/home/services/messaging.scm b/gnu/home/services/messaging.scm index d403b84ac9..2f1ac4c258 100644 --- a/gnu/home/services/messaging.scm +++ b/gnu/home/services/messaging.scm @@ -18,11 +18,7 @@ (define-module (gnu home services messaging) #:use-module (srfi srfi-26) - #:use-module (ice-9 match) - - #:use-module (shepherd support) - #:use-module (gnu home services) #:use-module (gnu home services shepherd) #:use-module (gnu packages messaging) @@ -30,7 +26,6 @@ #:use-module (gnu services shepherd) #:use-module (guix records) #:use-module (guix gexp) - #:export (home-znc-configuration home-znc-service-type)) @@ -50,14 +45,13 @@ (match config (($ <home-znc-configuration> znc extra-options) (let* ((znc (file-append znc "/bin/znc")) - (command `(,znc - "--foreground" - ,@extra-options)) - (log-file (string-append %user-log-dir "/znc.log"))) + (command #~'(#$znc "--foreground" #$@extra-options)) + (log-file #~(string-append %user-log-dir "/znc.log"))) (list (shepherd-service (documentation "Run the znc IRC bouncer.") (provision '(znc)) - (start #~(make-forkexec-constructor '#$command + (modules '((shepherd support))) ;for '%user-log-dir' + (start #~(make-forkexec-constructor #$command #:log-file #$log-file)) (stop #~(make-kill-destructor)))))))) |