Module Ppx_sexp_conv_expander__Sexp_grammar_lifter.Atom

type t = Base.Sexp.Private.Raw_grammar.Atom.t =
| String
| Bool
| Char
| Float
| Int
| This of {
ignore_capitalization : Base.bool;
string : Base.string;
}
class virtual +'a lift : object ... end
val lifter : loc:Ppxlib.location -> < array : a. ('a, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift -> ('a Base.array, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; bool : (Base.bool, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; char : (char, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; constr : Base.string -> Ppxlib.expression Base.list -> Ppxlib.expression; float : (float, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; int : (int, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; int32 : (int32, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; int64 : (int64, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; list : a. ('a, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift -> ('a list, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; nativeint : (nativeint, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; option : a. ('a, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift -> ('a option, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; other : a. ('a, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; record : (Base.string * Ppxlib.expression) Base.list -> Ppxlib.expression; string : (Base.string, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; t : t -> Ppxlib.expression; tuple : Ppxlib.expression list -> Ppxlib.expression; unit : (unit, Ppxlib.expression) Ppxlib_traverse_builtins.T.lift; >