sig
type t = {
time : float;
read_only : bool;
tls : [ `Native | `None | `OpenSSL ];
preemptive_bounds : int * int;
preemptive_queue : int;
libev : bool;
gc_minor_words : float;
gc_promoted_words : float;
gc_major_words : float;
gc_minor_collections : int;
gc_major_collections : int;
gc_heap_words : int;
gc_heap_chunks : int;
gc_compactions : int;
gc_top_heap_words : int;
gc_stack_size : int;
}
val create :
time:float ->
read_only:bool ->
tls:[ `Native | `None | `OpenSSL ] ->
preemptive_bounds:int * int ->
preemptive_queue:int ->
libev:bool -> gc:Gc.stat -> Ketrew_pure.Protocol.Server_status.t
end