From 89bd44ddf5e253c4acf8a2b452b28346a4c8eedf Mon Sep 17 00:00:00 2001
From: Clombrong <cromblong@egregore.fun>
Date: Thu, 26 Jun 2025 11:15:58 +0200
Subject: refactor(portal_ws): stanza_close to close

---
 portal/ws/portal.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/portal/ws/portal.ml b/portal/ws/portal.ml
index b2a3119..fd67ad2 100644
--- a/portal/ws/portal.ml
+++ b/portal/ws/portal.ml
@@ -46,7 +46,8 @@ let header ?from domain (stream, push) =
         |> Option.fold ~none:error ~some
      | _ -> error
 
-let stanza_close = {|<close xmlns="|} ^ xmlns ^ {|" />|} |> string |> parse_xml |> signals
+let close (_, p) =
+  {|<close xmlns="|} ^ xmlns ^ {|" />|} |> string |> parse_xml |> signals |> Option.some |> p
 
 exception MalformedStanza of Markup.location * Markup.Error.t
 
-- 
cgit v1.2.3