From 98817cc8c37c8ca1ca0d05ea02a374fad0f5d896 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Mon, 9 Apr 2012 21:48:10 +0200 Subject: Fix a copy'n'paste error. --- src/mulk/benki/lazychat.clj | 7 ++++--- 1 file 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 -- cgit v1.2.3