diff options
| -rw-r--r-- | src/user.clj | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/user.clj b/src/user.clj index c516fd2..25e1824 100644 --- a/src/user.clj +++ b/src/user.clj @@ -20,6 +20,10 @@ ;;; User info cache +(defn fetch-nick-uncached [nick] + (first (do-select ["SELECT * FROM users WHERE lower(nick) = ? LIMIT 1" + (lower-case nick)]))) + (defn-cached fetch-nick-cached (lru-cache-strategy 2000) "Retrieves user info from database" @@ -44,7 +48,7 @@ ;; user login (defn authorize-nick-hash [nick hash] - (if-let [db-user (fetch-nick nick)] + (if-let [db-user (fetch-nick-uncached nick)] (and (= (db-user :hash) hash) db-user))) (defn update-nick-hash [nick hash] |