sig
type a
val write : Buffer.t -> Deriving_Json.Json_min'.a -> unit
val read : Deriving_Json_lexer.lexbuf -> Deriving_Json.Json_min'.a
val match_variant : [ `Cst of int | `NCst of int ] -> bool
val read_variant :
Deriving_Json_lexer.lexbuf ->
[ `Cst of int | `NCst of int ] -> Deriving_Json.Json_min'.a
end