ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: syncthing: Use 'match-record'.

Browse source 
* gnu/services/syncthing.scm (syncthing-shepherd-service): Use
'match-record-lambda' instead of 'match-lambda'.
This commit is contained in:
Ludovic Courtès 2023-08-06 12:26:06 +02:00
parent 9bfe7fbdbe
commit c6c8106c65
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 26 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gnu/services/syncthing.scm
View file

@ -52,8 +52,8 @@ (define-record-type* <syncthing-configuration>
(default #f)))
(define syncthing-shepherd-service
(match-lambda
(($ <syncthing-configuration> syncthing arguments logflags user group home)
(match-record-lambda <syncthing-configuration>
(syncthing arguments logflags user group home)
(list
(shepherd-service
(provision (list (string->symbol (string-append "syncthing-" user))))
@ -77,7 +77,7 @@ (define syncthing-shepherd-service
(string-prefix? "SSL_CERT_FILE=" str)))
(environ)))))
(respawn? #f)
(stop #~(make-kill-destructor)))))))
(stop #~(make-kill-destructor))))))
(define syncthing-service-type
(service-type (name 'syncthing)