diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2023-03-16 21:46:29 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-03-16 23:03:17 +0100 |
| commit | 8f219e658d8d2d89a2d6ec10729099130791a3a2 (patch) | |
| tree | 5b7302a7e432be59f8317be12fff01dd772bd851 /gnu/home/services/messaging.scm | |
| parent | 9cb17464679de2c29aa6db0b0a11142bfb4ca042 (diff) | |
| download | guix-8f219e658d8d2d89a2d6ec10729099130791a3a2.tar.gz | |
home: services: kodi, znc, ssh-agent: Use 'match-record'.
* gnu/home/services/media.scm (home-kodi-services): Use 'match-record' instead of 'match'. * gnu/home/services/messaging.scm (home-znc-services): Likewise. * gnu/home/services/ssh.scm (home-ssh-agent-services): Likewise.
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 |