Fixed if bug

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)