diff options
| -rw-r--r-- | portal/lib/portal_ws.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/portal/lib/portal_ws.ml b/portal/lib/portal_ws.ml index 1570a9e..366f524 100644 --- a/portal/lib/portal_ws.ml +++ b/portal/lib/portal_ws.ml @@ -48,7 +48,7 @@ let ws_stream (url : string) = in (ws##close) in let stream, message = create () (* websocket -> user *) and incoming, push = create () (* user -> websocket *) - in let (ws : WebSockets.webSocket Js.t) = new%js WebSockets.webSocket (jss url) + in let (ws : WebSockets.webSocket Js.t) = new%js WebSockets.webSocket_withProtocol (jss url) (jss "xmpp") in ws##.onmessage := Dom.handler (fun x -> Some (sjs x##.data) |> message; Js._false); ws##.onopen := |