         {})
       {:dda-backup backup-user})))
 
-(defn create-backup-path
+; TODO: move to downstream namespace as that should not be exposed to outside.
+(defn
+  create-backup-path
   [backup-element]
   (if (contains? (:backup-path backup-element) :root-dir)
     (update backup-element :backup-path [(map #(str (-> backup-element :backup-path :root-dir) %) (-> backup-element :backup-path :subdir-to-save))])
     backup-element))
 
-(s/defn ^:always-validate infra-backup-element :- infra-schema/BackupElement
+(s/defn ^:always-validate
+  infra-backup-element :- infra-schema/BackupElement
   [backup-element :- schema/ResolvedBackupElement]
   (let [{:keys [name type]} backup-element]
     (merge

       :backup-elements         (map infra-backup-element backup-elements)})))


(s/defn ^:always-validate infra-configuration :- InfraResult
  [config :- ResolvedBackupConfig]
  (let [{} config]
    {infra/facility (infra-config config)}))

(ns dda.pallet.dda-backup-crate.domain
  (:require
    [schema.core :as s]
    [clj-pgp.core :as pgp]
    [dda.config.commons.map-utils :as mu]
    [dda.pallet.dda-backup-crate.domain.schema :as schema]
    [dda.pallet.dda-backup-crate.domain.file-convention :as file]
    [dda.pallet.dda-backup-crate.infra :as infra]
