Minor subs cleanup

This commit is contained in:
Mike Thompson 2016-08-18 11:57:01 +10:00
parent 3a8abed723
commit ca9513d0e7
1 changed files with 1 additions and 4 deletions

View File

@ -36,7 +36,7 @@
(let [cache-key [query-v dynv]]
;; when this reaction is nolonger being used, remove it from the cache
(add-on-dispose! r #(do (swap! query->reaction dissoc cache-key)
#_(console :log "Removing subscription: " cache-key))) ;; XXX remove console debug
#_(console :log "Removing subscription: " cache-key)))
;; cache this reaction, so it can be used to deduplicate other, later "=" subscriptions
(swap! query->reaction assoc cache-key r)
r)) ;; return the actual reaction
@ -83,9 +83,6 @@
;; -- Helper code for register-pure -------------------
;; add `metric` which (metric :using-cached-subscription {:text
;; XXX no need for maps
(defn- map-vals
"Returns a new version of 'm' in which 'f' has been applied to each value.
(map-vals inc {:a 4, :b 2}) => {:a 5, :b 3}"