diff options
| author | Scott Ostler <scottbot9000@gmail.com> | 2010-07-04 18:19:18 -0400 |
|---|---|---|
| committer | Scott Ostler <scottbot9000@gmail.com> | 2010-07-04 18:19:18 -0400 |
| commit | ae77b19680b6b83d93d5951108029c4889c5868a (patch) | |
| tree | 20b70f21af02cb09f0d616cbc16ebe05ce35e413 /src/site.clj | |
| parent | 231a9933b7766306ae109b2e511c971caadea6b2 (diff) | |
| parent | 57b4ecea5e20f4746c23911a6cc85508e0509536 (diff) | |
Merge branch 'master' of ssh://dump.fm/pichat/repo
Diffstat (limited to 'src/site.clj')
| -rw-r--r-- | src/site.clj | 12 |
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")))) |