From 3d767f6256dd52b567e7a6de8724c934d1cfcafd Mon Sep 17 00:00:00 2001
From: anatoly <tolitius@gmail.com>
Date: Thu, 21 Jul 2016 14:48:30 -0400
Subject: [PATCH] adding (running-states)

---
 src/mount/core.cljc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/mount/core.cljc b/src/mount/core.cljc
index 22f1952..aeaf93f 100644
--- a/src/mount/core.cljc
+++ b/src/mount/core.cljc
@@ -181,6 +181,9 @@
           (with-ns ns name))
         v)))
 
+(defn running-states []
+  (keys @running))
+
 (defn- unvar-state [s]
   (->> s (drop 2) (apply str)))  ;; magic 2 is removing "#'" in state name