Module Base__.Sexp_conv_error

module List = Base__.List0
module String = Base__.String0
exception Of_sexp_error of exn * Base.Sexp.t
val tuple_of_size_n_expected : string ‑> int ‑> Base.Sexp.t ‑> 'a
val stag_no_args : string ‑> Base.Sexp.t ‑> 'a
val stag_incorrect_n_args : string ‑> string ‑> Base.Sexp.t ‑> 'a
val stag_takes_args : string ‑> Base.Sexp.t ‑> 'a
val nested_list_invalid_sum : string ‑> Base.Sexp.t ‑> 'a
val empty_list_invalid_sum : string ‑> Base.Sexp.t ‑> 'a
val unexpected_stag : string ‑> Base.Sexp.t ‑> 'a
val record_only_pairs_expected : string ‑> Base.Sexp.t ‑> 'a
val record_superfluous_fields : what:string ‑> loc:string ‑> string list ‑> Base.Sexp.t ‑> 'a
val record_duplicate_fields : string ‑> string list ‑> Base.Sexp.t ‑> 'a
val record_extra_fields : string ‑> string list ‑> Base.Sexp.t ‑> 'a
val record_get_undefined_loop : string list ‑> (bool * string) list ‑> string
val record_undefined_elements : string ‑> Base.Sexp.t ‑> (bool * string) list ‑> 'a
val record_list_instead_atom : string ‑> Base.Sexp.t ‑> 'a
val record_poly_field_value : string ‑> Base.Sexp.t ‑> 'a
exception No_variant_match
val no_variant_match : unit ‑> 'a
val no_matching_variant_found : string ‑> Base.Sexp.t ‑> 'a
val ptag_no_args : string ‑> Base.Sexp.t ‑> 'a
val ptag_incorrect_n_args : string ‑> string ‑> Base.Sexp.t ‑> 'a
val ptag_takes_args : string ‑> Base.Sexp.t ‑> 'a
val nested_list_invalid_poly_var : string ‑> Base.Sexp.t ‑> 'a
val empty_list_invalid_poly_var : string ‑> Base.Sexp.t ‑> 'a
val silly_type : string ‑> Base.Sexp.t ‑> 'a
val empty_type : string ‑> Base.Sexp.t ‑> 'a