Warning: Reason support is experimental. We are looking for beta-tester and contributors.

Module type Defs.AstHelpers

module type AstHelpers = sig..end

module Untranslate : Type.Untranslate
val seq : 
  Camlp4.PreCast.Ast.expr ->
  Camlp4.PreCast.Ast.expr -> Camlp4.PreCast.Ast.expr
val seq_list : Camlp4.PreCast.Ast.expr list -> Camlp4.PreCast.Ast.expr
val record_pattern : 
  ?prefix:string -> Type.field list -> Camlp4.PreCast.Ast.patt
val record_expr : 
  (string * Camlp4.PreCast.Ast.expr) list -> Camlp4.PreCast.Ast.expr
val record_expression : 
  ?prefix:string -> Type.field list -> Camlp4.PreCast.Ast.expr
val expr_list : Camlp4.PreCast.Ast.expr list -> Camlp4.PreCast.Ast.expr
val patt_list : Camlp4.PreCast.Ast.patt list -> Camlp4.PreCast.Ast.patt
val tuple_expr : Camlp4.PreCast.Ast.expr list -> Camlp4.PreCast.Ast.expr
val tuple : 
  ?param:string ->
  int -> string list * Camlp4.PreCast.Ast.patt * Camlp4.PreCast.Ast.expr
val cast_pattern : 
  Type.qname Type.NameMap.t ->
  ?param:string ->
  Type.expr ->
  Camlp4.PreCast.Ast.patt * Camlp4.PreCast.Ast.expr *
  Camlp4.PreCast.Ast.expr
val modname_from_qname : 
  qname:string list -> classname:string -> Camlp4.PreCast.Ast.ident