diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-04-09 21:48:10 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-04-09 21:48:10 +0200 |
| commit | 98817cc8c37c8ca1ca0d05ea02a374fad0f5d896 (patch) | |
| tree | 5c07075a8838fa3c986e3bdec0a00ec0531d5308 | |
| parent | b21976e8253ad22fbd239cf60a61f4a9b6fcb1e2 (diff) | |
Fix a copy'n'paste error.
| -rw-r--r-- | src/mulk/benki/lazychat.clj | 7 |
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 |