fix: can't exit app

pull/1764/head
Tienson Qin 2021-05-10 13:46:27 +08:00
parent c78b225bbb
commit d1d4eaeb5a
1 changed files with 6 additions and 5 deletions

View File

@ -68,11 +68,12 @@
;; persisting DBs between page reloads
(defn persist! [repo]
(let [key (datascript-db repo)
conn (get-conn repo false)
db (d/db conn)
db-str (if db (db->string db) "")]
(p/let [_ (idb/set-batch! [{:key key :value db-str}])]
(state/set-last-persist-transact-id! repo false (get-max-tx-id db)))))
conn (get-conn repo false)]
(when conn
(let [db (d/db conn)
db-str (if db (db->string db) "")]
(p/let [_ (idb/set-batch! [{:key key :value db-str}])]
(state/set-last-persist-transact-id! repo false (get-max-tx-id db)))))))
(defonce persistent-jobs (atom {}))