Defaults'.1-J
type a
val write : Buffer.t -> a -> unit
val read : Deriving_Json_lexer.lexbuf -> a
val match_variant : [ `Cst of int | `NCst of int ] -> bool
val read_variant : Deriving_Json_lexer.lexbuf -> [ `Cst of int | `NCst of int ] -> a