diff options
| -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 |