diff options
| -rw-r--r-- | portal/ws/portal.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/portal/ws/portal.ml b/portal/ws/portal.ml index 527c5f9..2916e66 100644 --- a/portal/ws/portal.ml +++ b/portal/ws/portal.ml @@ -70,7 +70,7 @@ let ws_endpoint (domain : string) : string Lwt.t = Js_of_ocaml_lwt.XmlHttpRequest.perform_raw_url (well_known_of domain) in match parse_xrd host_meta.content with | Some x -> Lwt.return x - | None -> Lwt.fail_with (domain ^ "doesn't advertise a WebSocket endpoint via Web-host Metadata.") + | None -> Lwt.fail_with (domain ^ ": no WebSocket endpoint in Web-host Metadata.") let ws_stream (url : string) = (** [ws_stream url] is a promise to a framed Lwt stream (and its push function) |