Module Implementations.Instance

type streaming_response =
| Pipe : _ Async_kernel.Pipe.Reader.t -> streaming_response
| Direct : _ Direct_stream_writer.t -> streaming_response
type 'a unpacked = {
implementations : 'a implementations;
writer : Async_rpc_kernel__.Transport.Writer.t;
open_streaming_responses : (Async_rpc_kernel__.Protocol.Query_id.tstreaming_response) Core_kernel.Hashtbl.t;
mutable stopped : bool;
connection_state : 'a;
connection_description : Core_kernel.Info.t;
connection_close_started : Core_kernel.Info.t Async_kernel.Deferred.t;
mutable last_dispatched_implementation : (Async_rpc_kernel__.Description.t * 'a Implementation.F.t) option;
packed_self : t;
}
and t =
| T : _ unpacked -> t