diff options
| author | Clombrong <cromblong@egregore.fun> | 2025-06-27 14:05:46 +0200 |
|---|---|---|
| committer | Clombrong <cromblong@egregore.fun> | 2025-06-27 14:06:08 +0200 |
| commit | 94ae313e15a8b8004c6db20573229b2ff68120d1 (patch) | |
| tree | f6e0ef953c04b4dded04c5497cabb889c7c522d1 /portal | |
| parent | 8e8f2974fb511986fbf0b183e6209323289fc13a (diff) | |
feat(portal): make fields of t mutable
Diffstat (limited to 'portal')
| -rw-r--r-- | portal/portal.mli | 6 | ||||
| -rw-r--r-- | portal/tcp/portal.ml | 6 | ||||
| -rw-r--r-- | portal/ws/portal.ml | 6 |
3 files changed, 9 insertions, 9 deletions
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" |