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

enhance: better error handling when importing data

Browse Source 
Gracefully handle invalid EDN and property conflicts
This commit is contained in:
Gabriel Horner
2025-01-31 09:01:05 -05:00
parent 002edb103e
commit 02f893f66b
2 changed files with 32 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
deps/db/src/logseq/db/sqlite/export.cljs vendored
View File

@@ -78,7 +78,8 @@
(defn build-entity-import
"Given an entity's export map, build the import tx to create it"
[db {:build/keys [block] :keys [properties classes]}]
(let [opts (cond-> {:pages-and-blocks [{:page (select-keys (:block/page block) [:block/uuid])
(let [property-conflicts (atom [])
opts (cond-> {:pages-and-blocks [{:page (select-keys (:block/page block) [:block/uuid])
:blocks [(dissoc block :block/page)]}]
:build-existing-tx? true}
(seq classes)
@@ -94,10 +95,22 @@
(->> properties
(map (fn [[k v]]
(if-let [ent (d/entity db k)]
[k (assoc v :block/uuid (:block/uuid ent))]
(do
(when (not= (select-keys ent [:logseq.property/type :db/cardinality])
(select-keys v [:logseq.property/type :db/cardinality]))
(swap! property-conflicts conj
{:property-id k
:actual (select-keys v [:logseq.property/type :db/cardinality])
:expected (select-keys ent [:logseq.property/type :db/cardinality])}))
[k (assoc v :block/uuid (:block/uuid ent))])
[k v])))
(into {}))))]
(sqlite-build/build-blocks-tx opts)))
(if (seq @property-conflicts)
(do
(js/console.error :property-conflicts @property-conflicts)
{:error (str "The following imported properties conflict with the current graph: "
(pr-str (mapv :property-id @property-conflicts)))})
(sqlite-build/build-blocks-tx opts))))
(defn merge-export-map
"Merges export map with the block that will receive the import"