diff options
Diffstat (limited to 'portal/lib/ws/portal.ml')
| -rw-r--r-- | portal/lib/ws/portal.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/portal/lib/ws/portal.ml b/portal/lib/ws/portal.ml index 7b79166..06f952f 100644 --- a/portal/lib/ws/portal.ml +++ b/portal/lib/ws/portal.ml @@ -30,7 +30,7 @@ let stanza_open ?from domain : (signal, sync) stream = `End_element] in stanza |> of_list -let stanza_close = {|<close xmlns="urn:ietf:params:xml:ns:xmpp-framing" />|} +let stanza_close = string {|<close xmlns="urn:ietf:params:xml:ns:xmpp-framing" />|} |> parse_xml |> signals exception MalformedStanza of Markup.location * Markup.Error.t |