mirror of
https://github.com/penpot/penpot.git
synced 2025-07-21 17:37:30 +02:00
✨ Set better log level on some rpc middlewares
This commit is contained in:
parent
e2ddb3e31e
commit
9c724c8e95
4 changed files with 4 additions and 4 deletions
|
@ -201,7 +201,7 @@
|
||||||
|
|
||||||
(defn- wrap
|
(defn- wrap
|
||||||
[cfg f mdata]
|
[cfg f mdata]
|
||||||
(l/debug :hint "register method" :name (::sv/name mdata))
|
(l/trc :hint "register method" :name (::sv/name mdata))
|
||||||
(let [f (wrap-all cfg f mdata)]
|
(let [f (wrap-all cfg f mdata)]
|
||||||
(partial f cfg)))
|
(partial f cfg)))
|
||||||
|
|
||||||
|
|
|
@ -200,7 +200,7 @@
|
||||||
(reduce (fn [handler [limit-id key-fn]]
|
(reduce (fn [handler [limit-id key-fn]]
|
||||||
(if-let [config (get config limit-id)]
|
(if-let [config (get config limit-id)]
|
||||||
(let [key-fn (or key-fn noop-fn)]
|
(let [key-fn (or key-fn noop-fn)]
|
||||||
(l/dbg :hint "instrumenting method"
|
(l/trc :hint "instrumenting method"
|
||||||
:method label
|
:method label
|
||||||
:limit (id->str limit-id)
|
:limit (id->str limit-id)
|
||||||
:timeout (:timeout config)
|
:timeout (:timeout config)
|
||||||
|
|
|
@ -51,7 +51,7 @@
|
||||||
[_ f {:keys [::get-object ::key-fn ::reuse-key?] :as mdata}]
|
[_ f {:keys [::get-object ::key-fn ::reuse-key?] :as mdata}]
|
||||||
(if (and (ifn? get-object) (ifn? key-fn))
|
(if (and (ifn? get-object) (ifn? key-fn))
|
||||||
(do
|
(do
|
||||||
(l/debug :hint "instrumenting method" :service (::sv/name mdata))
|
(l/trc :hint "instrumenting method" :service (::sv/name mdata))
|
||||||
(fn [cfg {:keys [::key] :as params}]
|
(fn [cfg {:keys [::key] :as params}]
|
||||||
(if *enabled*
|
(if *enabled*
|
||||||
(let [key' (when (or key reuse-key?)
|
(let [key' (when (or key reuse-key?)
|
||||||
|
|
|
@ -44,7 +44,7 @@
|
||||||
(if (::enabled mdata)
|
(if (::enabled mdata)
|
||||||
(let [max-retries (get mdata ::max-retries 3)
|
(let [max-retries (get mdata ::max-retries 3)
|
||||||
matches? (get mdata ::when always-false)]
|
matches? (get mdata ::when always-false)]
|
||||||
(l/dbg :hint "wrapping retry" :name name :max-retries max-retries)
|
(l/trc :hint "wrapping retry" :name name :max-retries max-retries)
|
||||||
(fn [cfg params]
|
(fn [cfg params]
|
||||||
(-> cfg
|
(-> cfg
|
||||||
(assoc ::max-retries max-retries)
|
(assoc ::max-retries max-retries)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue