Added initial muting

1 files changed, 7 insertions, 0 deletions

diff --git a/src/utils.clj b/src/utils.clj
index ea696e5..da4d4be 100755
--- a/src/utils.clj
+++ b/src/utils.clj
@@ -20,6 +20,9 @@
 
 ;; Misc
 
+(defn no-args-adaptor [f]
+  (fn [& more] (f)))
+
 (defn ms-in-future [ms]
   (+ ms (System/currentTimeMillis)))
 
@@ -59,6 +62,10 @@
 
 ;; Database
 
+(defn do-cmds [query]
+  (with-connection *db*
+    (do-commands query)))
+
 (defn do-select [query]
   (with-connection *db*
     (with-query-results rs query