diff options
| author | sostler <sbostler@gmail.com> | 2010-05-27 20:24:39 -0400 |
|---|---|---|
| committer | sostler <sbostler@gmail.com> | 2010-05-27 20:24:39 -0400 |
| commit | b5ecbae40ab352995df2461301d72067ae5ed397 (patch) | |
| tree | d8fc0ba472c6236c9cf6fb7b891508b38e93c41f /src/site.clj | |
| parent | 1f52229775ac654aaf4e1807b38a4bc1527a1434 (diff) | |
Fixed feed msg insertion transaction
Diffstat (limited to 'src/site.clj')
| -rw-r--r-- | src/site.clj | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/site.clj b/src/site.clj index 2197dd5..45ee9e5 100644 --- a/src/site.clj +++ b/src/site.clj @@ -25,7 +25,6 @@ user)) (defstruct user-struct :nick :user_id :avatar :last-seen) -(defstruct message-struct :nick :content :created_on :msg_id) (defn user-struct-from-session [session] (struct user-struct (session :nick) (session :user_id) (session :avatar) @@ -584,9 +583,6 @@ FROM users u ((first (do-select [qry user-id room-id content is-image])) :message_id)))) -(defn build-msg [nick content msg-id] - (struct message-struct nick content (new Date) msg-id)) - (defn msg [session params] (let [user-id (session :user_id) mute ((poll *active-mutes*) user-id) |