Trust oidc providers which provides email_verified claim

This commit is contained in:
Andrey Antukh 2024-03-26 12:47:54 +01:00 committed by Andrés Moya
parent 7e20cf10c5
commit a969550aa4
2 changed files with 18 additions and 13 deletions

View file

@ -83,17 +83,17 @@
(defmethod process-token :auth
[{:keys [conn] :as cfg} _params {:keys [profile-id] :as claims}]
(let [profile (profile/get-profile conn profile-id {::sql/for-update true})
props (merge (:props profile)
(:props claims))
profile (assoc profile :props props)]
(let [profile (profile/get-profile conn profile-id {::sql/for-update true})
props (merge (:props profile)
(:props claims))]
(when (not= props (:props profile))
(db/update! conn :profile
{:props (db/tjson props)}
{:id profile-id}))
(assoc claims :profile profile)))
(let [profile (assoc profile :props props)]
(assoc claims :profile profile))))
;; --- Team Invitation