Merge pull request #4068 from penpot/niwinz-staging-bugfix-8

🐛 Fix incorrect behavior of climit subsystem and adapt related code
This commit is contained in:
Alejandro 2024-02-02 07:18:56 +01:00 committed by GitHub
commit a980c102be
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
19 changed files with 629 additions and 533 deletions

View file

@ -74,10 +74,9 @@
[class cause]
(loop [cause cause]
(if (c/instance? class cause)
true
(if-let [cause (ex-cause cause)]
(recur cause)
false)))))
cause
(when-let [cause (ex-cause cause)]
(recur cause))))))
;; NOTE: idea for a macro for error handling
;; (pu/try-let [cause (p/await (get-object-data backend object))]

View file

@ -319,6 +319,12 @@
::message (delay ~message)})
nil)))
(defmacro log
[level & params]
`(do
(log! ::logger ~(str *ns*) ::level ~level ~@params)
nil))
(defmacro info
[& params]
`(do