From 94ae313e15a8b8004c6db20573229b2ff68120d1 Mon Sep 17 00:00:00 2001 From: Clombrong Date: Fri, 27 Jun 2025 14:05:46 +0200 Subject: feat(portal): make fields of t mutable --- portal/portal.mli | 6 +++--- portal/tcp/portal.ml | 6 +++--- portal/ws/portal.ml | 6 +++--- 3 files changed, 9 insertions(+), 9 deletions(-) (limited to 'portal') diff --git a/portal/portal.mli b/portal/portal.mli index 2f52547..744a579 100644 --- a/portal/portal.mli +++ b/portal/portal.mli @@ -11,9 +11,9 @@ type socket [push None] disconnects brutally the underlying XMPP server and closes [_socket], without closing the element stream first. *) type t = { - stream : (signal, async) stream; - push : (signal, sync) stream option -> unit; - _socket : socket; + mutable stream : (signal, async) stream; + mutable push : (signal, sync) stream option -> unit; + mutable _socket : socket; } (** This is the XML namespace of the underlying element stream. diff --git a/portal/tcp/portal.ml b/portal/tcp/portal.ml index c7afd8e..f1eaff9 100644 --- a/portal/tcp/portal.ml +++ b/portal/tcp/portal.ml @@ -6,9 +6,9 @@ open Markup type socket = file_descr type t = { - stream : (signal, async) stream; - push : (signal, sync) stream option -> unit; - _socket : socket; + mutable stream : (signal, async) stream; + mutable push : (signal, sync) stream option -> unit; + mutable _socket : socket; } let xmlns = "http://etherx.jabber.org/streams" diff --git a/portal/ws/portal.ml b/portal/ws/portal.ml index b313471..496806d 100644 --- a/portal/ws/portal.ml +++ b/portal/ws/portal.ml @@ -8,9 +8,9 @@ let sjs = Js.to_string type socket = WebSockets.webSocket Js.t type t = { - stream : (signal, async) stream; - push : (signal, sync) stream option -> unit; - _socket : socket; + mutable stream : (signal, async) stream; + mutable push : (signal, sync) stream option -> unit; + mutable _socket : socket; } let xmlns = "urn:ietf:params:xml:ns:xmpp-framing" -- cgit v1.2.3