Fix problem with pushing bufferend #xmlel-s to receiver in websocket code

diff --git a/src/ejabberd_http_ws.erl b/src/ejabberd_http_ws.erl
index 0808ffd97686cbc82af22b7843b7d23037da84ed..a0cc31e2a005b608ec609bc1d966d65143c2ada5 100644 (file)
--- a/src/ejabberd_http_ws.erl
+++ b/src/ejabberd_http_ws.erl
@@ -138,8 +138,10 @@ handle_event({activate, From}, StateName, StateData) ->
              StateData#state{waiting_input = From}};
       Input ->
             Receiver = From,
-            lists:foreach(fun(I) ->
-                                  Receiver ! {tcp, StateData#state.socket, I}
+            lists:foreach(fun(I) when is_binary(I)->
+                                  Receiver ! {tcp, StateData#state.socket, I};
+                             (I2) ->
+                                  Receiver ! {tcp, StateData#state.socket, [I2]}
                           end, Input),
             {next_state, StateName,
              StateData#state{input = [], waiting_input = false,