correct config and auth generate output
This commit is contained in:
parent
8def2ec408
commit
2466dbc85f
1 changed files with 4 additions and 5 deletions
|
@ -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!
|
||||
|
|
Loading…
Reference in a new issue