@@ -650,11 +650,11 @@
(let [list? (and (some? (:block/uuid block))
(nil? (list-type-fn block)))]
(cond-> block
- (and db-based? list?)
- (assoc k list-type)
-
list?
- (update :block/properties assoc k list-type)
+ ((fn [b]
+ (if db-based?
+ (assoc b k list-type)
+ (update b :block/properties assoc k list-type))))
(not db-based?)
(assoc :block/content (gp-property/insert-property repo format content :logseq.order-list-type list-type)))))