fix: check ast-version after `restore-and-setup!`

pull/2387/head
rcmerci 2021-07-06 21:48:04 +08:00 committed by Tienson Qin
parent d76d17d01e
commit e3e4f55efa
3 changed files with 17 additions and 15 deletions

View File

@ -155,8 +155,7 @@
(when logged?
(d/transact! db-conn [(me-tx (d/db db-conn) me)])))]
(restore-config-handler repo)
(listen-and-persist! repo)
(state/pub-event! [:after-db-restore repo])))))))
(listen-and-persist! repo)))))))
(defn run-batch-txs!
[]

View File

@ -114,7 +114,8 @@
(js/console.error "Failed to request GitHub app tokens."))))
(watch-for-date!)
(file-handler/watch-for-local-dirs!)))
(file-handler/watch-for-local-dirs!)
(state/pub-event! [:after-db-restore repos])))
(p/catch (fn [error]
(log/error :db/restore-failed error))))))]
;; clear this interval

View File

@ -98,18 +98,20 @@
(defmethod handle :after-db-restore [[_ repo]]
;; compare :ast/version
(let [db (conn/get-conn repo)
ast-version (:v (first (d/datoms db :aevt :ast/version)))]
(when (and (not= config/local-repo repo)
(or (nil? ast-version)
(. semver lt ast-version db-schema/ast-version)))
(notification/show!
[:p.content
(util/format "DB-schema updated, Please re-index repo [%s]" repo)]
:warning
false))))
(defmethod handle :after-db-restore [[_ repos]]
(mapv (fn [{url :url} repo]
;; compare :ast/version
(let [db (conn/get-conn url)
ast-version (:v (first (d/datoms db :aevt :ast/version)))]
(when (and (not= config/local-repo url)
(or (nil? ast-version)
(. semver lt ast-version db-schema/ast-version)))
(notification/show!
[:p.content
(util/format "DB-schema updated, Please re-index repo [%s]" url)]
:warning
false))))
repos))
(defn run!
[]