fix: delete objects

pull/10438/head
Tienson Qin 2023-08-24 16:25:43 +08:00
parent 620038ea0f
commit 63ac4e42c3
2 changed files with 4 additions and 5 deletions

View File

@ -832,9 +832,10 @@
:or {children? true}}]
[:pre [(seq blocks)]]
(let [txs-state (ds/new-outliner-txs-state)
blocks (get-top-level-blocks blocks)
block-ids (map (fn [b] [:block/uuid (:block/uuid b)]) blocks)
start-block (first blocks)
end-block (last (get-top-level-blocks blocks))
end-block (last blocks)
start-node (block start-block)
end-node (block end-block)
end-node-parents (->>

View File

@ -31,13 +31,12 @@
(go-loop []
(let [[repo ret-ch deleted-uuids upsert-blocks] (<! db-upsert-chan)
delete-rc (when (seq deleted-uuids)
(<! (p->c (.deleteBlocks sqlite repo (clj->js deleted-uuids)))))
(<! (p->c (.deleteBlocks sqlite repo (clj->js (map str deleted-uuids))))))
upsert-rc (<! (p->c (.upsertBlocks sqlite repo (clj->js upsert-blocks))))]
(async/put! ret-ch [delete-rc upsert-rc])
(prn :db-upsert-chan :delete delete-rc :upsert upsert-rc))
(recur))
(prn ::done))
)
(prn ::done)))
(p/catch (fn [e]
(js/console.error "init error", e)))))))
(p/resolved @*sqlite)))
@ -123,4 +122,3 @@
res (.fetchBlocksExcluding sqlite repo (clj->js exclude-uuids))]
(prn :<fetch-blocks-excluding res)
res)))