浏览代码

fix: property history still exists when property is deleted

No need to leave partial history around
Gabriel Horner 9 月之前
父节点
当前提交
8e2f0c9888
共有 1 个文件被更改,包括 5 次插入2 次删除
  1. 5 2
      src/main/frontend/worker/handler/page.cljs

+ 5 - 2
src/main/frontend/worker/handler/page.cljs

@@ -86,8 +86,11 @@
                 delete-file-tx (when file
                                  [[:db.fn/retractEntity [:file/path file-path]]])
                 delete-property-tx (when (ldb/property? page)
-                                     (let [datoms (d/datoms @conn :avet (:db/ident page))]
-                                       (map (fn [d] [:db/retract (:e d) (:a d)]) datoms)))
+                                     (concat
+                                      (let [datoms (d/datoms @conn :avet (:db/ident page))]
+                                        (map (fn [d] [:db/retract (:e d) (:a d)]) datoms))
+                                      (map (fn [d] [:db/retractEntity (:e d)])
+                                           (d/datoms @conn :avet :logseq.property.history/property (:db/ident page)))))
                 delete-page-tx (concat (db-refs->page repo page)
                                        delete-property-tx
                                        [[:db.fn/retractEntity (:db/id page)]])