diff options
Diffstat (limited to 'gnu/home/services/messaging.scm')
| -rw-r--r-- | gnu/home/services/messaging.scm | 25 |
1 files changed, 12 insertions, 13 deletions
diff --git a/gnu/home/services/messaging.scm b/gnu/home/services/messaging.scm index 2f1ac4c258..bd2f1bb23f 100644 --- a/gnu/home/services/messaging.scm +++ b/gnu/home/services/messaging.scm @@ -18,7 +18,6 @@ (define-module (gnu home services messaging) #:use-module (srfi srfi-26) - #:use-module (ice-9 match) #:use-module (gnu home services) #:use-module (gnu home services shepherd) #:use-module (gnu packages messaging) @@ -42,18 +41,18 @@ (define (home-znc-services config) "Return a <shepherd-service> for znc with CONFIG." - (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"))) - (list (shepherd-service - (documentation "Run the znc IRC bouncer.") - (provision '(znc)) - (modules '((shepherd support))) ;for '%user-log-dir' - (start #~(make-forkexec-constructor #$command - #:log-file #$log-file)) - (stop #~(make-kill-destructor)))))))) + (match-record 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"))) + (list (shepherd-service + (documentation "Run the znc IRC bouncer.") + (provision '(znc)) + (modules '((shepherd support))) ;for '%user-log-dir' + (start #~(make-forkexec-constructor #$command + #:log-file #$log-file)) + (stop #~(make-kill-destructor))))))) (define home-znc-service-type (service-type |