From: Paweł Chmielowski <pawel@process-one.net>
Date: Thu, 9 Apr 2015 11:35:37 +0000 (+0200)
Subject: Fix problem with pushing bufferend #xmlel-s to receiver in websocket code
X-Git-Tag: 15.04~35
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=8732817c3cb770f948404a4a481667d286541c7a;p=ejabberd

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 0808ffd97..a0cc31e2a 100644
--- 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,