should allow edit for realz.

This commit is contained in:
2022-04-15 09:20:12 -07:00
parent 064ad2b45c
commit f09daf8ed2
3 changed files with 13 additions and 6 deletions

View File

@@ -13,7 +13,14 @@
(context "/yodlee2" []
(GET "/fastlink" {:keys [query-params identity] :as request}
(assert-admin identity)
(let [token (yodlee/get-access-token (get query-params "client"))]
(let [token (if-let [client-id (get query-params "client-id")]
(-> client-id
Long/parseLong
d-clients/get-by-id
:client/code
(yodlee/get-access-token))
(yodlee/get-access-token (get query-params "client")))]
{:status 200
:headers {"Content-Type" "application/edn"}
:body (pr-str {:token token