Add request to connection handler parameters

This commit is contained in:
Vassil Dichev 2012-05-08 14:07:42 +03:00 committed by Gijs Stuurman
parent 0ffd7dbd7d
commit 2a7e65ef5b
2 changed files with 2 additions and 2 deletions

View file

@ -19,7 +19,7 @@
file/wrap-file-info file/wrap-file-info
(browserchannel/wrap-browserchannel {:base "/channel" (browserchannel/wrap-browserchannel {:base "/channel"
:on-session :on-session
(fn [session-id] (fn [session-id req]
(println "session " session-id "connected") (println "session " session-id "connected")
(browserchannel/add-listener (browserchannel/add-listener

View file

@ -448,7 +448,7 @@
session-agent (agent session)] session-agent (agent session)]
(swap! sessions assoc id session-agent) (swap! sessions assoc id session-agent)
(when-let [notify (:on-session options)] (when-let [notify (:on-session options)]
(notify id)) (notify id req))
session-agent))) session-agent)))
(defn session-status [session] (defn session-status [session]