3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-06 12:52:56 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Improve internal API of retry mechanism

Browse source
This commit is contained in:
Andrey Antukh 2024-01-26 15:09:01 +01:00
parent 16a051d7e0
commit dabb9d0a82
3 changed files with 38 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

23
backend/src/app/loggers/audit.clj
View file

@ -200,22 +200,15 @@
;; NOTE: this operation may cause primary key conflicts on inserts
;; because of the timestamp precission (two concurrent requests), in
;; this case we just retry the operation.
(let [cfg (-> cfg
(assoc ::rtry/when rtry/conflict-exception?)
(assoc ::rtry/max-retries 6)
(assoc ::rtry/label "persist-audit-log"))
(let [tnow (dt/now)
params (-> params
(assoc :created-at tnow)
(assoc :tracked-at tnow)
(update :props db/tjson)
(update :context db/tjson)
(update :ip-addr db/inet)
(assoc :source "backend"))]
(rtry/invoke cfg (fn [cfg]
(let [tnow (dt/now)
params (-> params
(assoc :created-at tnow)
(assoc :tracked-at tnow))]
(db/insert! cfg :audit-log params))))))
(db/insert! cfg :audit-log params)))
(when (and (contains? cf/flags :webhooks)
(::webhooks/event? event))
@ -246,9 +239,13 @@
"Submit audit event to the collector."
[cfg params]
(try
(let [event (d/without-nils params)]
(let [event (d/without-nils params)
cfg (-> cfg
(assoc ::rtry/when rtry/conflict-exception?)
(assoc ::rtry/max-retries 6)
(assoc ::rtry/label "persist-audit-log"))]
(us/verify! ::event event)
(db/tx-run! cfg handle-event! event))
(rtry/invoke! cfg db/tx-run! handle-event! event))
(catch Throwable cause
(l/error :hint "unexpected error processing event" :cause cause))))