Minor adjustments

src/main/cljc/dda/c4k_gitea/backup.cljc

@@ -11,8 +11,6 @@
 (s/def ::restic-password cm/bash-env-string?)
 (s/def ::restic-repository cm/bash-env-string?)
 
-(def auth? (s/keys :req-un [::aws-access-key-id ::aws-secret-access-key ::restic-password ::restic-repository]))
-
 #?(:cljs
    (defmethod yaml/load-resource :backup [resource-name]
      (case resource-name

src/main/cljc/dda/c4k_gitea/gitea.cljc

@@ -93,8 +93,8 @@
      (cm/replace-all-matching-values-by-new-value "MAILERUSER" (b64/encode mailer-user))
      (cm/replace-all-matching-values-by-new-value "MAILERPW" (b64/encode mailer-pw)))))
 
-(defn-spec generate-ingress pred/map-or-seq?
-  [config config?]
+(defn generate-ingress
+  [config]
   (let [{:keys [fqdn issuer]} config]
     (->
      (yaml/load-as-edn "gitea/ingress.yaml")

src/main/cljs/dda/c4k_gitea/browser.cljs

@@ -93,7 +93,7 @@
   (br/validate! "domain-whitelist" ::gitea/service-domain-whitelist :optional true)
   (br/validate! "postgres-data-volume-path" ::pgc/postgres-data-volume-path :optional true)
   (br/validate! "volume-total-storage-size" ::gitea/volume-total-storage-size :deserializer js/parseInt)
-  (br/validate! "auth" gitea/auth? :deserializer edn/read-string)
+  (br/validate! "auth" core/auth? :deserializer edn/read-string)
   (br/set-form-validated!))
 
 (defn add-validate-listener [name]