🐛 Fix incorrect register-profile audit log handling

This commit is contained in:
Andrey Antukh 2022-06-23 14:09:25 +02:00
parent 69810750c5
commit c211e84498
3 changed files with 13 additions and 10 deletions

View file

@ -6,7 +6,6 @@
(ns app.rpc
(:require
[app.common.data :as d]
[app.common.exceptions :as ex]
[app.common.logging :as l]
[app.common.spec :as us]
@ -132,10 +131,13 @@
(fn [result _]
(when result
(let [resultm (meta result)
profile-id (or (:profile-id params)
profile-id (or (::audit/profile-id resultm)
(:profile-id result)
(::audit/profile-id resultm))
props (d/merge params (::audit/props resultm))]
(:profile-id params))
props (or (::audit/replace-props resultm)
(-> params
(merge (::audit/props resultm))
(dissoc :type)))]
(audit :cmd :submit
:type (or (::audit/type resultm)
(::type cfg))