|
|
@@ -41,6 +41,12 @@
|
|
|
(constantly nil)
|
|
|
(m/ap
|
|
|
(let [m (m/?> (m/relieve state-flow))]
|
|
|
+ (when (and (contains? m :git/current-repo)
|
|
|
+ (:git/current-repo m nil))
|
|
|
+ (log/error :sync-app-state
|
|
|
+ [m (select-keys @state/state
|
|
|
+ [:git/current-repo
|
|
|
+ :auth/id-token :auth/access-token :auth/refresh-token])]))
|
|
|
(c.m/<? (state/<invoke-db-worker :thread-api/sync-app-state m))
|
|
|
(p/resolve! <init-sync-done?))))]
|
|
|
(c.m/run-task* task)
|