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

🐛 Fix incorrect behavior of climit subsystem and adapt related code

common/src/app/common/exceptions.cljc

@@ -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))]

common/src/app/common/logging.cljc

@@ -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