From f8ab2206e33848a3bb7c38f8840444c0f1e2e884 Mon Sep 17 00:00:00 2001 From: sostler Date: Wed, 6 Jan 2010 02:59:24 -0500 Subject: Fixed if bug --- src/site.clj | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'src') 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) -- cgit v1.2.3-70-g09d2