From c68648a8a503c59b17ec38107e7c787f3b7370f3 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 16 Mar 2023 17:29:03 +0100 Subject: 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'. --- gnu/home/services/messaging.scm | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) (limited to 'gnu/home/services') 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 @@ (define-module (gnu home services messaging) #: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 @@ (define (home-znc-services config) (match config (($ 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)))))))) -- cgit v1.2.3