diff options
| author | Clombrong <clombrong@egregore.fun> | 2025-04-24 18:25:55 +0200 |
|---|---|---|
| committer | Clombrong <cromblong@egregore.fun> | 2025-04-24 18:25:55 +0200 |
| commit | 5ee2ada0af0400c6593fbf7634dd8370f2d986a2 (patch) | |
| tree | 896f2c146ca17494507914f59479a9e02d49abfd | |
| parent | 1db20a50974dd33874d28aa78f69a25aa4294a94 (diff) | |
fix: advertise xmpp protocol in the websocket
| -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 := |