send-map shouldn't really be returning the actual session agent

2016-05-09 13:17:13 -04:00 · 2016-05-09 13:17:13 -04:00 · 6916f3efb2
parent 6674d171c3
commit 6916f3efb2
1 changed files with 2 additions and 1 deletions
--- a/clj-browserchannel/src/net/thegeez/browserchannel/server.clj
+++ b/clj-browserchannel/src/net/thegeez/browserchannel/server.clj
@ -600,7 +600,8 @@
    (let [string (json/write-str m)]
      (send-off session-agent #(-> %
                                   (queue-string string)
-                                   flush-buffer)))))
+                                   flush-buffer))
+      string)))

 (defn send-data
  "sends data to the client identified by session-id over the backchannel.