diff options
| author | dumpfmprod <dumpfmprod@ubuntu.(none)> | 2010-04-13 07:31:11 -0400 |
|---|---|---|
| committer | dumpfmprod <dumpfmprod@ubuntu.(none)> | 2010-04-13 07:31:11 -0400 |
| commit | 41661c78d6941a4a63bebbb30cf0bcf82aa04138 (patch) | |
| tree | c2c5607e48640f86acf29b1a744d43cdd7e05527 /src/utils.clj | |
| parent | d87cbb95e22bae4597943b9a39f938fd5bda4253 (diff) | |
| parent | d0bd678ff36fed7cf492b89542588b82efafb938 (diff) | |
Merge branch 'master' of /pichat/repo
Diffstat (limited to 'src/utils.clj')
| -rwxr-xr-x | src/utils.clj | 7 |
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 |