fix: <sync-start returns a channel

This commit is contained in:
Tienson Qin
2022-11-06 20:12:39 +08:00
parent 530f683ac0
commit 865ba9c69c
4 changed files with 10 additions and 10 deletions

View File

@@ -3000,11 +3000,11 @@
(declare network-online-cursor)
(defn sync-start
(defn <sync-start
[]
(when (false? @*sync-entered?)
(reset! *sync-entered? true)
(go
(go
(when (false? @*sync-entered?)
(reset! *sync-entered? true)
(let [*sync-state (atom (sync-state))
current-user-uuid (user/user-uuid)
;; put @graph-uuid & get-current-repo together,
@@ -3056,7 +3056,7 @@
(<sync-stop)
(and (false? o) (true? n))
(sync-start)
(<sync-start)
:else
nil)))