diff options
author | Timo Wilken | 2023-11-05 00:32:41 +0100 |
---|---|---|
committer | Timo Wilken | 2023-11-05 00:35:42 +0100 |
commit | c3ef6ab1a62cf23cd15fd8865ec6bcdf8e7e4ad7 (patch) | |
tree | f31d4fea84535b0af61f5071ef82a65e1a90a153 /tw/services/restic.scm | |
parent | 5098b845e9eb0b3a39495f4fd7890cae0d426c3e (diff) |
Fix `match-record' indentation
Diffstat (limited to 'tw/services/restic.scm')
-rw-r--r-- | tw/services/restic.scm | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/tw/services/restic.scm b/tw/services/restic.scm index 7deea24a..f23da013 100644 --- a/tw/services/restic.scm +++ b/tw/services/restic.scm @@ -128,8 +128,9 @@ private restic repos.") (define (restic-server-arguments config) "Turn CONFIG into a list of arguments to the restic-rest-server executable." (match-record config <restic-server-configuration> - (repository-path bind-address htpasswd-file auth? verify-upload? append-only? - max-repository-size private-repos-only? prometheus? prometheus-auth?) + (repository-path bind-address htpasswd-file auth? verify-upload? + append-only? max-repository-size private-repos-only? + prometheus? prometheus-auth?) `("--path" ,repository-path "--listen" ,bind-address ,@(if (string? htpasswd-file) `("--htpasswd-file" ,htpasswd-file) '()) @@ -143,8 +144,7 @@ private restic repos.") (define (restic-server-service config) "Create a `shepherd-service' for the restic REST server from CONFIG." - (match-record config <restic-server-configuration> - (restic-server user group) + (match-record config <restic-server-configuration> (restic-server user group) (list (shepherd-service (provision '(restic-server)) (requirement '(networking)) @@ -157,8 +157,7 @@ private restic repos.") (define (restic-server-accounts config) "Create user accounts and groups for the restic REST server defined in CONFIG." - (match-record config <restic-server-configuration> - (user group repository-path) + (match-record config <restic-server-configuration> (user group repository-path) (list (user-account (name user) (group group) @@ -246,8 +245,9 @@ true." (define (cronjob config) (match-record config <restic-scheduled-cleanup> - (schedule repo password restic user snapshot-host snapshot-paths prune? - keep-last keep-hourly keep-daily keep-weekly keep-monthly keep-yearly keep-within) + (schedule repo password restic user snapshot-host snapshot-paths + prune? keep-last keep-hourly keep-daily keep-weekly + keep-monthly keep-yearly keep-within) #~(job #$schedule #$(program-file ;; Make cron commands for different repos easier to distinguish. @@ -312,8 +312,7 @@ must be given. Leading @code{~/} are replaced with @code{$HOME}.") (define (restic-backup-cronjobs configs) (define (cronjob config) - (match-record config <restic-scheduled-backup> - (schedule paths repo password tags restic) + (match-record config <restic-scheduled-backup> (schedule paths repo password tags restic) #~(job #$schedule #$(program-file "restic-backup-command" #~(begin |