From 61c37d913acdea6348adc0386a757f91ddcd15e4 Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Tue, 15 Jun 2010 13:11:29 -0400 Subject: Fixed fetch-or-create-bod-id --- src/rooms.clj | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/rooms.clj b/src/rooms.clj index a7fe933..8f54640 100644 --- a/src/rooms.clj +++ b/src/rooms.clj @@ -128,12 +128,12 @@ (throw (Exception. (str "Unable to create room " key)))))) (defn- fetch-or-create-bot-id! [nick] - ((comp :user_id first) - (or [(fetch-nick nick)] - (do - (do-select ["INSERT INTO users (nick, hash, email) - VALUES (?, ?, ?) RETURNING user_id" - nick "GARBAGE" "info@dump.fm"]))))) + (:user_id + (or (fetch-nick nick) + (first + (do-select ["INSERT INTO users (nick, hash, email) + VALUES (?, ?, ?) RETURNING user_id" + nick "GARBAGE" "info@dump.fm"]))))) (def room-bot-id-cache (ref {})) -- cgit v1.2.3-70-g09d2