michael/grub-fork
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Use different events for full sync, full sync request

Browse source
This commit is contained in:
Nicholas Kariniemi 2014-10-10 18:51:31 +03:00
parent 0f06d21767
commit 52ce9ffb42
3 changed files with 11 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/cljx/grub/message.cljx
View file

@ -1,6 +1,6 @@
(ns grub.message)
(def full-sync-request {:type :full-sync})
(def full-sync-request {:type :full-sync-request})
(defn full-sync [state]
{:type :full-sync

17
src/cljx/grub/state.cljx
View file

@ -35,16 +35,17 @@
(let [state (sync/get-current-state states*)]
(>! out (message/full-sync state))
(recur state)))))
:full-sync-request
(let [state (sync/get-current-state @states)]
(>! out (message/full-sync state))
(recur state))
:full-sync
(if client?
(let [state (:state msg)]
(reset! states (sync/new-state state))
(recur state))
(let [state (sync/get-current-state @states)]
(>! out (message/full-sync state)) ;; HERE
(recur state)))
(let [state (:state msg)]
(reset! states (sync/new-state state))
(recur state))
:new-state
(let [{:keys [diff hash]} (sync/diff-states (:state msg) shadow)]
(when-not (sync/empty-diff? diff)

2
src/test/grub/test/unit/state.clj
View file

@ -97,7 +97,7 @@
{:grubs {"1" {:text "2 apples" :completed false}
"2" {:text "3 onions" :completed false}}
:recipes {}})
msg {:type :full-sync}
msg {:type :full-sync-request}
in (chan 1)
out (chan 1)]
(state/make-server-agent in out states)