diff options
| -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" |