simplify queue-hints!
This commit is contained in:
parent
343d12849e
commit
24646b1077
|
@ -387,9 +387,7 @@
|
|||
for the relevant views/subscribers."
|
||||
[hints]
|
||||
(trace "queueing hints" hints)
|
||||
(swap! view-system update-in [:hints]
|
||||
(fn [existing-hints]
|
||||
(reduce conj (or existing-hints #{}) hints))))
|
||||
(swap! view-system update-in [:hints] (fnil into #{}) hints))
|
||||
|
||||
(defn put-hints!
|
||||
"Adds a collection of hints to the view system by using the view system
|
||||
|
|
Loading…
Reference in a new issue