Ast_open_cxt (melange.Melange_ppx_lib.Ast_open

type loc = Melange_compiler_libs.Location.t

type whole

type t = whole list

val restore_exp : 
  Melange_compiler_libs.Parsetree.expression ->
  t ->
  Melange_compiler_libs.Parsetree.expression

val destruct : 
  Melange_compiler_libs.Parsetree.expression ->
  t ->
  Melange_compiler_libs.Parsetree.expression * t

val destruct_open_tuple : 
  Melange_compiler_libs.Parsetree.expression ->
  t ->
  (t
   * Melange_compiler_libs.Parsetree.expression list
   * Melange_compiler_libs.Parsetree.attributes)
    option