Module Ketrew_pure.Protocol.Server_status

module Server_status: sig .. end

type t = {

	`time : float;`
	`read_only : bool;`
	tls : [ `Native \| `None \| `OpenSSL ];
	`preemptive_bounds : int * int;`
	`preemptive_queue : int;`
	`libev : bool;`
	`database : string;`
	`host_timeout_upper_bound : float option;`
	`maximum_successive_attempts : int;`
	`concurrent_automaton_steps : int;`
	`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;`
	`enable_ssh_ui : bool;`

}

val create : database:string ->
       host_timeout_upper_bound:float option ->
       maximum_successive_attempts:int ->
       concurrent_automaton_steps:int ->
       enable_ssh_ui:bool ->
       time:float ->
       read_only:bool ->
       tls:[ `Native | `None | `OpenSSL ] ->
       preemptive_bounds:int * int ->
       preemptive_queue:int ->
       libev:bool -> gc:Gc.stat -> t