type descr = {name : string;descr : string option;example : string option;schema : Json_schema.schema option;
}type 'a t = {id : 'a Ty.id;destruct : string -> ('a, string) Stdlib.result;construct : 'a -> string;description : descr;
}val make :
?example:'a ->
?descr:string ->
?schema:Json_schema.schema ->
name:string ->
destruct:(string -> ('a, string) Stdlib.result) ->
construct:('a -> string) ->
unit ->
'a tval int :
?descr:string ->
?example:int ->
?schema:Json_schema.schema ->
string ->
int tval float :
?descr:string ->
?example:float ->
?schema:Json_schema.schema ->
string ->
float tval int32 :
?descr:string ->
?example:int32 ->
?schema:Json_schema.schema ->
string ->
int32 tval int64 :
?descr:string ->
?example:int64 ->
?schema:Json_schema.schema ->
string ->
int64 tval string :
?descr:string ->
?example:string ->
?schema:Json_schema.schema ->
string ->
string t