diff options
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 |