diff options
| author | sostler <sbostler@gmail.com> | 2010-01-06 03:06:53 -0500 |
|---|---|---|
| committer | sostler <sbostler@gmail.com> | 2010-01-06 03:06:53 -0500 |
| commit | 59352927f0edc1d712f57bce5f5828d07579ac3c (patch) | |
| tree | 5bb7e9e4f13b0c78ee7b304d782d18747fbebc0a /src | |
| parent | f8ab2206e33848a3bb7c38f8840444c0f1e2e884 (diff) | |
Fixed flush! bug
Diffstat (limited to 'src')
| -rwxr-xr-x | src/site.clj | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/site.clj b/src/site.clj index 5be70c7..31367a7 100755 --- a/src/site.clj +++ b/src/site.clj @@ -36,9 +36,10 @@ (defn flush! [x] (when run-flusher (send-off *agent* #'flush!)) + (prn "hi") (doseq [[rid room] @rooms] (dosync - (let [users ((ensure room) :users) + (let [users (room :users) now (System/currentTimeMillis) alive? (fn [[n u]] (> (u :last-seen) (- now user-timeout-ms)))] (ref-set users |