clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-04-26 15:15:01 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix: handle exceptions for async db requests

Browse Source
This commit is contained in:
Tienson Qin
2024-03-07 00:19:18 +08:00
parent 8f86a27386
commit c3e06b5ea8
1 changed files with 16 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/main/frontend/db/transact.cljs
View File

@@ -2,7 +2,8 @@
"Provides async transact for use with ldb/transact!"
(:require [clojure.core.async :as async]
[clojure.core.async.interop :refer [p->c]]
[promesa.core :as p]))
[promesa.core :as p]
[frontend.worker.async-util :include-macros true :refer [<?]]))
(defonce *request-id (atom 0))
(defonce requests (async/chan 1000))
@@ -30,9 +31,19 @@
(defn listen-for-requests []
(async/go-loop []
(when-let [{:keys [id request response]} (async/<! requests)]
(let [result (async/<! (p->c (request)))]
(p/resolve! response result)
(swap! *unfinished-request-ids disj id))
(try
(let [result (<? (p->c (request)))]
(if (:ex-data result)
(do
(js/console.error (:ex-message result) (:ex-data result))
(p/reject! response result)
(swap! *unfinished-request-ids disj id))
(do
(p/resolve! response result)
(swap! *unfinished-request-ids disj id))))
(catch :default e
(p/reject! response e)
(swap! *unfinished-request-ids disj id)))
(recur))))
(defn transact [worker-transact repo tx-data tx-meta]
@@ -42,4 +53,4 @@
;; not from remote(rtc)
:local-tx? true)]
(add-request! request-id (fn async-request []
(worker-transact repo tx-data tx-meta')))))
(worker-transact repo tx-data tx-meta')))))