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