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

also clean up hashes for views with no subscriptions

Browse source
This commit is contained in:
Gered 2016-05-19 10:33:46 -04:00
parent bbb3a3f189
commit c2ef73e311
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/views/core.clj
View file

@ -98,6 +98,14 @@
(dissoc subscribed subscriber-key) (dissoc subscribed subscriber-key)
subscribed))))) subscribed)))))
(defn- clean-up-unneeded-hashes
[view-system view-sig]
; hashes for view-sigs which do not have any unsubscribers are no longer necessary
; to keep around (again, at risk of endlessly filling up with tons of hashes over time)
(if-not (get (:subscribers view-system) view-sig)
(update-in view-system [:hashes] dissoc view-sig)
view-system))
(defn unsubscribe! (defn unsubscribe!
[namespace view-id parameters subscriber-key] [namespace view-id parameters subscriber-key]
(swap! view-system (swap! view-system
@ -105,7 +113,8 @@
(let [view-sig [namespace view-id parameters]] (let [view-sig [namespace view-id parameters]]
(-> vs (-> vs
(remove-from-subscribed view-sig subscriber-key) (remove-from-subscribed view-sig subscriber-key)
(remove-from-subscribers view-sig subscriber-key)))))) (remove-from-subscribers view-sig subscriber-key)
(clean-up-unneeded-hashes view-sig))))))
(defn unsubscribe-all! (defn unsubscribe-all!
"Remove all subscriptions by a given subscriber." "Remove all subscriptions by a given subscriber."