summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2012-04-09 21:48:10 +0200
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2012-04-09 21:48:10 +0200
commit98817cc8c37c8ca1ca0d05ea02a374fad0f5d896 (patch)
tree5c07075a8838fa3c986e3bdec0a00ec0531d5308 /src
parentb21976e8253ad22fbd239cf60a61f4a9b6fcb1e2 (diff)
Fix a copy'n'paste error.
Diffstat (limited to 'src')
-rw-r--r--src/mulk/benki/lazychat.clj7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/mulk/benki/lazychat.clj b/src/mulk/benki/lazychat.clj
index 653475b..71de948 100644
--- a/src/mulk/benki/lazychat.clj
+++ b/src/mulk/benki/lazychat.clj
@@ -52,9 +52,10 @@
[:message :target]
[id (int target)]))
(enqueue lafargue-events
- {content :content, visibility :visibility
- format :format, targets :targets,
- referees :referees, id :id})))))
+ {:content content, :visibility visibility,
+ :format format, :targets targets,
+ :referees referees, :id id,
+ :author *user*})))))
(defn select-message [id]
(let [message (query1 "SELECT author, content, format, visibility, date