From d0bd678ff36fed7cf492b89542588b82efafb938 Mon Sep 17 00:00:00 2001 From: sostler Date: Tue, 13 Apr 2010 07:30:34 -0400 Subject: Added initial muting --- src/utils.clj | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src/utils.clj') 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 -- cgit v1.2.3-70-g09d2