From 2fc27341feed389b8b75ca12eb80e06a8e442d08 Mon Sep 17 00:00:00 2001
From: gered <gered@blarg.ca>
Date: Tue, 24 May 2016 10:42:11 -0400
Subject: [PATCH] add missing cleanup of unneeded view hashes in
 unsubscribe-all

---
 src/views/core.clj | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/views/core.clj b/src/views/core.clj
index e4cde74..ace5357 100644
--- a/src/views/core.clj
+++ b/src/views/core.clj
@@ -183,7 +183,12 @@
          (fn [vs]
            (let [view-sigs (get-in vs [:subscribed 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!
   "Schedules a view (identified by view-sig) to be refreshed by one of the worker threads