correct config and auth generate output

This commit is contained in:
bom 2021-06-14 13:01:33 +02:00
parent 8def2ec408
commit 2466dbc85f

View file

@ -38,8 +38,8 @@
:issuer (issuer-from-document)})
(defn auth-from-document []
(-> (auth)
(.-value)))
(edn/read-string (-> (auth)
(.-value))))
(defn set-output!
[input]
@ -83,8 +83,7 @@
validation-result)
(defn validate-auth! []
(let [auth-str (auth-from-document)
auth-map (edn/read-string auth-str)]
(let [auth-map (auth-from-document)]
(if (s/valid? core/auth? auth-map)
(set-auth-validation-result! "")
(set-auth-validation-result!