diff options
| -rw-r--r-- | portal/ws/portal.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/portal/ws/portal.ml b/portal/ws/portal.ml index 3fd142a..527c5f9 100644 --- a/portal/ws/portal.ml +++ b/portal/ws/portal.ml @@ -37,7 +37,7 @@ let stanza_close = {|<close xmlns="|} ^ xmlns ^ {|" />|} |> string |> parse_xml exception MalformedStanza of Markup.location * Markup.Error.t -let ws_endpoint (domain : string) = +let ws_endpoint (domain : string) : string Lwt.t = (** [ws_endpoint domain] is a promise containing the XMPP websocket endpoint associated with [domain], by using the domain's Web-host Metadata. @@ -66,11 +66,11 @@ let ws_endpoint (domain : string) = | _ -> None ) |> Option.join - in let+ host_meta = + in let* host_meta = Js_of_ocaml_lwt.XmlHttpRequest.perform_raw_url (well_known_of domain) in match parse_xrd host_meta.content with - | Some x -> x - | None -> failwith (domain ^ "doesn't advertise a WebSocket endpoint via Web-host Metadata.") + | Some x -> Lwt.return x + | None -> Lwt.fail_with (domain ^ "doesn't advertise a WebSocket endpoint via Web-host Metadata.") let ws_stream (url : string) = (** [ws_stream url] is a promise to a framed Lwt stream (and its push function) |