3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-18 01:36:11 +02:00
Code Issues Projects Releases Packages Wiki Activity

♻️ Remove obsolete st/emitf macro

Browse source
This commit is contained in:
Andrés Moya 2022-05-20 16:33:42 +02:00
parent eb07350cac
commit 2be432e1d4
40 changed files with 211 additions and 230 deletions
Download patch file Download diff file Expand all files Collapse all files

8
frontend/src/app/main/errors.cljs
View file

@ -35,7 +35,7 @@
:else
(let [hint (ex-message error)
msg (dm/str "Internal Error: " hint)]
(ts/schedule (st/emitf (rt/assign-exception error)))
(ts/schedule #(st/emit! (rt/assign-exception error)))
(js/console.group msg)
(ex/ignoring (js/console.error error))
@ -51,7 +51,7 @@
[_]
(let [msg (tr "errors.auth.unable-to-login")]
(st/emit! (du/logout {:capture-redirect true}))
(ts/schedule 500 (st/emitf (msg/warn msg)))))
(ts/schedule 500 #(st/emit! (msg/warn msg)))))
;; Error that happens on an active business model validation does not
;; passes an validation (example: profile can't leave a team). From
@ -154,7 +154,7 @@
(defmethod ptk/handle-error ::exceptional-state
[error]
(ts/schedule
(st/emitf (rt/assign-exception error))))
#(st/emit! (rt/assign-exception error))))
;; This happens when the backed server fails to process the
;; request. This can be caused by an internal assertion or any other
@ -188,7 +188,7 @@
(-> error ex-data ptk/handle-error)
(let [hint (ex-message error)
msg (dm/str "Unhandled Internal Error: " hint)]
(ts/schedule (st/emitf (rt/assign-exception error)))
(ts/schedule #(st/emit! (rt/assign-exception error)))
(js/console.group msg)
(ex/ignoring (js/console.error error))
(js/console.groupEnd msg))))