diff --git a/backend/src/app/rpc/mutations/verify_token.clj b/backend/src/app/rpc/mutations/verify_token.clj index 1fa32b81d..97458b5ca 100644 --- a/backend/src/app/rpc/mutations/verify_token.clj +++ b/backend/src/app/rpc/mutations/verify_token.clj @@ -34,10 +34,15 @@ (when (profile/retrieve-profile-data-by-email conn email) (ex/raise :type :validation :code :email-already-exists)) + (db/update! conn :profile {:email email} {:id profile-id}) - claims) + + (with-meta claims + {::audit/name "update-profile-email" + ::audit/props {:email email} + ::audit/profile-id profile-id})) (defn- annotate-profile-activation "A helper for properly increase the profile-activation metric once the diff --git a/backend/src/app/rpc/queries/profile.clj b/backend/src/app/rpc/queries/profile.clj index 6843a0719..b68c6a5f1 100644 --- a/backend/src/app/rpc/queries/profile.clj +++ b/backend/src/app/rpc/queries/profile.clj @@ -87,13 +87,9 @@ (defn retrieve-profile [conn id] - (let [profile (some->> (retrieve-profile-data conn id) - (strip-private-attrs) - (populate-additional-data conn))] - (when (nil? profile) - (ex/raise :type :not-found - :hint "Object doest not exists.")) - + (let [profile (->> (retrieve-profile-data conn id) + (strip-private-attrs) + (populate-additional-data conn))] (update profile :props filter-profile-props))) (def ^:private sql:profile-by-email