 
 (def InfraResult infra/InfraResult)
 
+; TODO: Wire hardcoded password through domain config
 (def default-user-config {:dataBackupSource {:hashed-password "WIwn6jIUt2Rbc"}})
 
 (defn key-id
   [ascii-armored-key]
   (clojure.string/upper-case (pgp/hex-id (pgp/decode-public-key ascii-armored-key))))
 
-(s/defn ^:always-validate user-domain-configuration
+; TODO: Wire hardcoded password through domain config
+(s/defn ^:always-validate
+  user-domain-configuration
   [config :- ResolvedBackupConfig]
   (let [{:keys [backup-user transport-management]} config
         public-gpg (get-in transport-management [:duplicity-push :public-key])

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


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

        {})
      {:dda-backup backup-user})))

; 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
  [backup-element :- schema/ResolvedBackupElement]
  (let [{:keys [name type]} backup-element]
    (merge
