diff options
| author | Clombrong <cromblong@egregore.fun> | 2025-06-27 08:22:57 +0200 |
|---|---|---|
| committer | Clombrong <cromblong@egregore.fun> | 2025-06-27 08:56:42 +0200 |
| commit | 79d15a2baec54f10ba5114667d3d686982a90bee (patch) | |
| tree | d1b68d76391d6057b282c86263a0126a704fad3b /portal/ws/portal.ml | |
| parent | 63f009280f29942ec2ea85176240e78becb2326b (diff) | |
feat(portal): make close a simple stanza
Diffstat (limited to 'portal/ws/portal.ml')
| -rw-r--r-- | portal/ws/portal.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/portal/ws/portal.ml b/portal/ws/portal.ml index dfd12cf..233ea8d 100644 --- a/portal/ws/portal.ml +++ b/portal/ws/portal.ml @@ -50,8 +50,8 @@ let header ?from domain {stream; push; _} = | Some id -> Lwt.return id | None -> Lwt.fail_with "Invalid stream opening server-side." -let close {push=p; _} = - {|<close xmlns="|} ^ xmlns ^ {|" />|} |> string |> parse_xml |> signals |> Option.some |> p +(** [close] is a [<close/>] stanza. *) +let close = {|<close xmlns="|} ^ xmlns ^ {|" />|} |> string |> parse_xml |> signals exception MalformedStanza of Markup.location * Markup.Error.t |