meissa/dda-backup
7
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix spec

Browse source
This commit is contained in:
Michael Jerger 2024-08-20 07:55:54 +02:00
parent 26822dd8fd
commit 4df437f707
3 changed files with 29 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/dda/backup/backup.clj
View file

@ -9,8 +9,16 @@
[dda.backup.infrastructure :as i])) [dda.backup.infrastructure :as i]))
(s/def ::config (s/def ::config
(s/keys :req-un [::domain/files ::cd/restic-repository ::cd/backup-path] (s/keys :req-un [::domain/files
:opt-un [::cd/certificate-file ::cd/directory ::cd/debug ::cd/dry-run])) ::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? (defn-spec backup! nil?
[config ::config] [config ::config]

12
src/dda/backup/management.clj
View file

@ -8,9 +8,15 @@
[dda.backup.infrastructure :as i])) [dda.backup.infrastructure :as i]))
(s/def ::config (s/def ::config
(s/keys :req-un [::cd/restic-repository ::cd/backup-path] (s/keys :req-un [::cd/restic-repository
:opt-un [::cd/certificate-file ::cd/directory ::cd/debug ::cd/backup-path]
::cd/dry-run ::cd/days-to-keep ::cd/months-to-keep])) :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? (defn-spec initalized? boolean?
[config ::config] [config ::config]

12
src/dda/backup/restore.clj
View file

@ -12,8 +12,16 @@
(s/def ::config (s/def ::config
(s/keys :req-un [::domain/target-directory (s/keys :req-un [::domain/target-directory
::cd/restic-repository ::cd/backup-path] ::cd/restic-repository
:opt-un [::domain/snapshot-id ::cd/certificate-file ::cd/directory ::cd/debug ::cd/dry-run])) ::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? (defn-spec restore! nil?
[config ::config] [config ::config]