for async http, capture recv and send it explicit :init

mmcgrana · 29ff0b65169c726e8f0ab192cd2dff5b820ada5d · mmcgrana committed Nov 7, 2010 · Nov 7, 2010 · 29ff0b6
1 parent 96232b7
commit 29ff0b65169c726e8f0ab192cd2dff5b820ada5d
Unified Split

Showing with 3 additions and 2 deletions.

+3 −2 ring-jetty-async-adapter/src/ring/adapter/jetty_async.clj
@@ -67,8 +67,9 @@
                                  (.println writer data)
                                  (.flush writer))
                              :close
-                              (.complete ac)))]
-                (reactor send))
+                              (.complete ac)))
+                    recv (reactor send)]
+                (recv {:type :init}))
             :websocket
               (let [reactor (:reactor response-map)
                     websocket (proxy-websocket reactor)