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

       :backup-file-prefix-pattern (file/backup-file-prefix-pattern name type)
       :type-name                  (file/element-type-name type)})))

(s/defn ^:always-validate infra-config :- infra-schema/ResolvedBackupConfig
  [config :- ResolvedBackupConfig]
  (let [{:keys [backup-user transport-management backup-elements]} config
        user-key :dda-backup

(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]
