diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2023-08-06 12:26:06 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-08-20 22:48:39 +0200 |
| commit | c6c8106c65bc1edcbb67e4ccfdc81c01aa4afd5f (patch) | |
| tree | 473ed224efe0d03acfaff00988cb1f9414c957aa /gnu/services/syncthing.scm | |
| parent | 9bfe7fbdbe51451d74a8fead5c1727d002050a52 (diff) | |
services: syncthing: Use 'match-record'.
* gnu/services/syncthing.scm (syncthing-shepherd-service): Use
'match-record-lambda' instead of 'match-lambda'.
Diffstat (limited to 'gnu/services/syncthing.scm')
| -rw-r--r-- | gnu/services/syncthing.scm | 52 |
1 files changed, 26 insertions, 26 deletions
diff --git a/gnu/services/syncthing.scm b/gnu/services/syncthing.scm index c1a0cdd81f8..e03e8e40b66 100644 --- a/gnu/services/syncthing.scm +++ b/gnu/services/syncthing.scm | |||
| @@ -52,32 +52,32 @@ | |||
| 52 | (default #f))) | 52 | (default #f))) |
| 53 | 53 | ||
| 54 | (define syncthing-shepherd-service | 54 | (define syncthing-shepherd-service |
| 55 | (match-lambda | 55 | (match-record-lambda <syncthing-configuration> |
| 56 | (($ <syncthing-configuration> syncthing arguments logflags user group home) | 56 | (syncthing arguments logflags user group home) |
| 57 | (list | 57 | (list |
| 58 | (shepherd-service | 58 | (shepherd-service |
| 59 | (provision (list (string->symbol (string-append "syncthing-" user)))) | 59 | (provision (list (string->symbol (string-append "syncthing-" user)))) |
| 60 | (documentation "Run syncthing.") | 60 | (documentation "Run syncthing.") |
| 61 | (requirement '(loopback)) | 61 | (requirement '(loopback)) |
| 62 | (start #~(make-forkexec-constructor | 62 | (start #~(make-forkexec-constructor |
| 63 | (append (list (string-append #$syncthing "/bin/syncthing") | 63 | (append (list (string-append #$syncthing "/bin/syncthing") |
| 64 | "--no-browser" | 64 | "--no-browser" |
| 65 | "--no-restart" | 65 | "--no-restart" |
| 66 | (string-append "--logflags=" (number->string #$logflags))) | 66 | (string-append "--logflags=" (number->string #$logflags))) |
| 67 | '#$arguments) | 67 | '#$arguments) |
| 68 | #:user #$user | 68 | #:user #$user |
| 69 | #:group #$group | 69 | #:group #$group |
| 70 | #:environment-variables | 70 | #:environment-variables |
| 71 | (append (list (string-append "HOME=" (or #$home (passwd:dir (getpw #$user)))) | 71 | (append (list (string-append "HOME=" (or #$home (passwd:dir (getpw #$user)))) |
| 72 | "SSL_CERT_DIR=/etc/ssl/certs" | 72 | "SSL_CERT_DIR=/etc/ssl/certs" |
| 73 | "SSL_CERT_FILE=/etc/ssl/certs/ca-certificates.crt") | 73 | "SSL_CERT_FILE=/etc/ssl/certs/ca-certificates.crt") |
| 74 | (remove (lambda (str) | 74 | (remove (lambda (str) |
| 75 | (or (string-prefix? "HOME=" str) | 75 | (or (string-prefix? "HOME=" str) |
| 76 | (string-prefix? "SSL_CERT_DIR=" str) | 76 | (string-prefix? "SSL_CERT_DIR=" str) |
| 77 | (string-prefix? "SSL_CERT_FILE=" str))) | 77 | (string-prefix? "SSL_CERT_FILE=" str))) |
| 78 | (environ))))) | 78 | (environ))))) |
| 79 | (respawn? #f) | 79 | (respawn? #f) |
| 80 | (stop #~(make-kill-destructor))))))) | 80 | (stop #~(make-kill-destructor)))))) |
| 81 | 81 | ||
| 82 | (define syncthing-service-type | 82 | (define syncthing-service-type |
| 83 | (service-type (name 'syncthing) | 83 | (service-type (name 'syncthing) |