Просмотр исходного кода

fix: pagination for blocks with refs when inserting

Tienson Qin 3 лет назад
Родитель
Сommit
311c1fa96d
1 измененных файлов с 2 добавлено и 2 удалено
  1. 2 2
      src/main/frontend/db/model.cljs

+ 2 - 2
src/main/frontend/db/model.cljs

@@ -662,8 +662,8 @@
                      (let [tx-data (:tx-data tx-report)
                            refs (some->> (filter #(= :block/refs (:a %)) tx-data)
                                          (map :v))
-                           tx-block-ids (distinct (->> (map :e tx-data)
-                                                       (concat refs)))
+                           tx-block-ids (distinct (-> (map :e tx-data)
+                                                      (concat refs)))
                            [tx-id->block cached-id->block] (when (and tx-report result)
                                                              (let [blocks (->> (db-utils/pull-many repo-url pull-keys tx-block-ids)
                                                                                (remove nil?))]