🐛 Fix incorrect implementation on error reporting context collection

This commit is contained in:
Andrey Antukh 2023-08-04 18:40:07 +02:00
parent cf68a9cf1e
commit 7afaa9d31f

View file

@ -41,7 +41,7 @@
(us/assert! ::l/record record) (us/assert! ::l/record record)
(let [data (ex-data cause) (let [data (ex-data cause)
context (-> context ctx (-> context
(assoc :tenant (cf/get :tenant)) (assoc :tenant (cf/get :tenant))
(assoc :host (cf/get :host)) (assoc :host (cf/get :host))
(assoc :public-uri (cf/get :public-uri)) (assoc :public-uri (cf/get :public-uri))
@ -49,7 +49,7 @@
(assoc :logger/level level) (assoc :logger/level level)
(dissoc :request/params :value :params :data))] (dissoc :request/params :value :params :data))]
(merge (merge
{:context (-> (into (sorted-map) context) {:context (-> (into (sorted-map) ctx)
(pp/pprint-str :width 200 :length 50 :level 10)) (pp/pprint-str :width 200 :length 50 :level 10))
:props (pp/pprint-str props :width 200 :length 50) :props (pp/pprint-str props :width 200 :length 50)
:hint (or (ex-message cause) @message) :hint (or (ex-message cause) @message)