Fixed feed bug, added quick logging

1 files changed, 6 insertions, 3 deletions

diff --git a/src/rooms.clj b/src/rooms.clj
index 736a96e..5e1feb1 100644
--- a/src/rooms.clj
+++ b/src/rooms.clj
@@ -85,6 +85,7 @@
   (alter (room :messages) (swap cons) msg))
 
 (defn create-and-add-room! [key]
+  (println "Creating room " key)
   (do-select ["INSERT INTO rooms (key, name, description)
                VALUES (?, ?, ?) RETURNING room_id"
               key key key])
@@ -98,16 +99,18 @@
   (:room_id
    (or (first (do-select ["SELECT room_id FROM rooms WHERE lower(key) = ?"
                           (lower-case key)]))
-       (create-and-add-room!)
+       (create-and-add-room! key)
        (throw (Exception. (str "Unable to create room " key))))))
 
 (defn- get-or-create-room-bot-id! [nick]
   ((comp :user_id first)
    (or (do-select ["SELECT user_id FROM users WHERE lower(nick) = ?"
                    (lower-case nick)])
-       (do-select ["INSERT INTO users (nick, hash, email)
+       (do
+         (do-select ["INSERT INTO users (nick, hash, email)
                     VALUES (?, ?, ?) RETURNING user_id"
-                   nick "GARBAGE" "info@dump.fm"]))))
+                     nick "GARBAGE" "info@dump.fm"])
+         (println "Creating bot  " nick)))))
 
 (defn get-or-create-room-bot! [key]
   (let [nick  (str "~" key)]