running-states to return a set
This commit is contained in:
parent
f49fceb518
commit
087683968d
1 changed files with 1 additions and 1 deletions
|
|
@ -182,7 +182,7 @@
|
||||||
v)))
|
v)))
|
||||||
|
|
||||||
(defn running-states []
|
(defn running-states []
|
||||||
(keys @running))
|
(set (keys @running)))
|
||||||
|
|
||||||
(defn- unvar-state [s]
|
(defn- unvar-state [s]
|
||||||
(->> s (drop 2) (apply str))) ;; magic 2 is removing "#'" in state name
|
(->> s (drop 2) (apply str))) ;; magic 2 is removing "#'" in state name
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue