From 4df437f707001a3d1d7765f330fc4e31d0817931 Mon Sep 17 00:00:00 2001 From: Michael Jerger Date: Tue, 20 Aug 2024 07:55:54 +0200 Subject: [PATCH] fix spec --- src/dda/backup/backup.clj | 12 ++++++++++-- src/dda/backup/management.clj | 12 +++++++++--- src/dda/backup/restore.clj | 12 ++++++++++-- 3 files changed, 29 insertions(+), 7 deletions(-) diff --git a/src/dda/backup/backup.clj b/src/dda/backup/backup.clj index 98ca16c..4b50176 100644 --- a/src/dda/backup/backup.clj +++ b/src/dda/backup/backup.clj @@ -9,8 +9,16 @@ [dda.backup.infrastructure :as i])) (s/def ::config - (s/keys :req-un [::domain/files ::cd/restic-repository ::cd/backup-path] - :opt-un [::cd/certificate-file ::cd/directory ::cd/debug ::cd/dry-run])) + (s/keys :req-un [::domain/files + ::cd/restic-repository + ::cd/backup-path] + :opt-un [::cd/certificate-file + ::cd/password-file + ::cd/days-to-keep + ::cd/months-to-keep + ::cd/directory + ::cd/dry-run + ::cd/debug])) (defn-spec backup! nil? [config ::config] diff --git a/src/dda/backup/management.clj b/src/dda/backup/management.clj index 67b993c..564b1ba 100644 --- a/src/dda/backup/management.clj +++ b/src/dda/backup/management.clj @@ -8,9 +8,15 @@ [dda.backup.infrastructure :as i])) (s/def ::config - (s/keys :req-un [::cd/restic-repository ::cd/backup-path] - :opt-un [::cd/certificate-file ::cd/directory ::cd/debug - ::cd/dry-run ::cd/days-to-keep ::cd/months-to-keep])) + (s/keys :req-un [::cd/restic-repository + ::cd/backup-path] + :opt-un [::cd/certificate-file + ::cd/password-file + ::cd/days-to-keep + ::cd/months-to-keep + ::cd/directory + ::cd/dry-run + ::cd/debug])) (defn-spec initalized? boolean? [config ::config] diff --git a/src/dda/backup/restore.clj b/src/dda/backup/restore.clj index aecfb34..c191ace 100644 --- a/src/dda/backup/restore.clj +++ b/src/dda/backup/restore.clj @@ -12,8 +12,16 @@ (s/def ::config (s/keys :req-un [::domain/target-directory - ::cd/restic-repository ::cd/backup-path] - :opt-un [::domain/snapshot-id ::cd/certificate-file ::cd/directory ::cd/debug ::cd/dry-run])) + ::cd/restic-repository + ::cd/backup-path] + :opt-un [::domain/snapshot-id + ::cd/certificate-file + ::cd/password-file + ::cd/days-to-keep + ::cd/months-to-keep + ::cd/directory + ::cd/dry-run + ::cd/debug])) (defn-spec restore! nil? [config ::config]