amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00: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
Download patch file Download diff file Expand all files Collapse all files

6
gnu/services/syncthing.scm
View file

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