gered/views
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

add missing cleanup of unneeded view hashes in unsubscribe-all

Browse source
This commit is contained in:
Gered 2016-05-24 10:42:11 -04:00
parent ff15c42f9a
commit 2fc27341fe
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/views/core.clj
View file

@ -183,7 +183,12 @@
(fn [vs] (fn [vs]
(let [view-sigs (get-in vs [:subscribed subscriber-key]) (let [view-sigs (get-in vs [:subscribed subscriber-key])
vs* (update-in vs [:subscribed] dissoc subscriber-key)] vs* (update-in vs [:subscribed] dissoc subscriber-key)]
(reduce #(remove-from-subscribers %1 %2 subscriber-key) vs* view-sigs))))) (reduce
#(-> %1
(remove-from-subscribers %2 subscriber-key)
(clean-up-unneeded-hashes %2))
vs*
view-sigs)))))
(defn refresh-view! (defn refresh-view!
"Schedules a view (identified by view-sig) to be refreshed by one of the worker threads "Schedules a view (identified by view-sig) to be refreshed by one of the worker threads