`sig
type t =
Migrate_parsetree.Ast_408.Parsetree.constant =
Pconst_integer of string * char option
| Pconst_char of char
| Pconst_string of string * string option
| Pconst_float of string * char option
val of_constant :
Migrate_parsetree.Ast_408.Parsetree.constant ->
Ast_convenience_408.Constant.t
val to_constant :
Ast_convenience_408.Constant.t ->
Migrate_parsetree.Ast_408.Parsetree.constant
end`