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