diff options
| -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 |