luciano/mount
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

set of keys for restart listener "on-change"

Browse source
This commit is contained in:
anatoly 2016-11-02 13:54:59 -04:00
parent 7d323e727e
commit c189db9d12
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/mount/core.cljc
View file

@ -314,10 +314,11 @@
(doseq [k ks] (doseq [k ks]
(swap! watchers update k #(conj % state)))) (swap! watchers update k #(conj % state))))
(on-change [_ k] (on-change [_ ks]
(let [states (@watchers k)] (doseq [k ks]
(apply stop states) (let [states (@watchers k)]
(apply start states)))) (apply stop states)
(apply start states)))))
(defn restart-listner (defn restart-listner
([] ([]