diff options
| -rwxr-xr-x | src/site.clj | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/site.clj b/src/site.clj index fa466bb..5be70c7 100755 --- a/src/site.clj +++ b/src/site.clj @@ -333,15 +333,15 @@ (let [now (System/currentTimeMillis) nick (session :nick) users (room :users)] - (if (or nick (session :last-seen)) - (if (contains? @users nick) - (let [last-seen (get-in @users [nick :last-seen])] - (alter users assoc-in [nick :last-seen] now) - (resp-success (updates room last-seen))) - (let [last-seen (session :last-seen)] - [(session-assoc :last-seen now) - (resp-success (updates room last-seen))]))) - (resp-error "NOT_IN_CHAT")))) + (if (or nick (session :last-seen)) + (if (contains? @users nick) + (let [last-seen (get-in @users [nick :last-seen])] + (alter users assoc-in [nick :last-seen] now) + (resp-success (updates room last-seen))) + (let [last-seen (session :last-seen)] + [(session-assoc :last-seen now) + (resp-success (updates room last-seen))])) + (resp-error "NOT_IN_CHAT"))))) (defn validated-refresh [session params] (let [room-key (params :room) |