|
@@ -117,7 +117,7 @@
|
|
|
(throw (ex-info "Invalid data" {:graph repo})))))
|
|
(throw (ex-info "Invalid data" {:graph repo})))))
|
|
|
|
|
|
|
|
;; Ensure :block/order is unique for any block that has :block/parent
|
|
;; Ensure :block/order is unique for any block that has :block/parent
|
|
|
- (when (:dev? context)
|
|
|
|
|
|
|
+ (when false;; (:dev? context)
|
|
|
(let [order-datoms (filter (fn [d] (= :block/order (:a d)))
|
|
(let [order-datoms (filter (fn [d] (= :block/order (:a d)))
|
|
|
(:tx-data tx-report))]
|
|
(:tx-data tx-report))]
|
|
|
(doseq [datom order-datoms]
|
|
(doseq [datom order-datoms]
|
rcmerci