From 0baebf01516b68f07fe69038828f503a517b0d34 Mon Sep 17 00:00:00 2001
From: Clombrong <cromblong@egregore.fun>
Date: Thu, 26 Jun 2025 10:32:11 +0200
Subject: refactor(portal_ws): stanza_open to header

---
 portal/tcp/portal.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'portal/tcp')

diff --git a/portal/tcp/portal.ml b/portal/tcp/portal.ml
index 854f76c..0532c39 100644
--- a/portal/tcp/portal.ml
+++ b/portal/tcp/portal.ml
@@ -8,7 +8,7 @@ let xmlns = "jabber:client"
 
 exception MalformedStanza of Markup.location * Markup.Error.t
 
-let negotiate ?from domain ((stream, push) : t) =
+let header ?from domain ((stream, push) : t) =
   let stanza =
     let attributes =
       [(("", "to"), domain); (("", "version"), "1.0");
-- 
cgit v1.2.3