context specific cookie domain

1 files changed, 6 insertions, 6 deletions

diff --git a/src/site.clj b/src/site.clj
index 6af0ebd..04ebecb 100644
--- a/src/site.clj
+++ b/src/site.clj
@@ -267,12 +267,12 @@
                        (make-login-token db-user)
                        (clear-login-token *login-token-key*))
         ip           (get-ip request)]
-    (if db-user
-      (do
-        (log-login (db-user :user_id) ip)
-        [(session-assoc-from-db db-user)
-        login-cookie
-        (resp-success "OK")]
+      (if db-user
+        (do
+           (log-login (db-user :user_id) ip)
+          [(session-assoc-from-db db-user)
+           login-cookie
+           (resp-success "OK")]
       )
       (resp-error "BAD_LOGIN"))))