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

[#15]: preserving order of state changes

Browse source
This commit is contained in:
anatoly 2015-11-23 12:20:51 -05:00
parent 432496863e
commit 19ec27eb9b
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/mount/core.clj
View file

@ -116,7 +116,7 @@
(sort-by :order)))) (sort-by :order))))
(defn- bring [states fun order] (defn- bring [states fun order]
(let [done (atom #{})] (let [done (atom [])]
(->> states (->> states
(sort-by (comp :order meta) order) (sort-by (comp :order meta) order)
(map #(fun % (meta %) done)) (map #(fun % (meta %) done))