package pa_ppx

  1. Overview
  2. Docs
type lident = string
val equal_lident : 'a -> 'a -> bool
type uident = string
val equal_uident : 'a -> 'a -> bool
type !'a ne_list = 'a list
val equal_ne_list : ('a -> 'a -> Bool.t) -> 'a ne_list -> 'a ne_list -> Bool.t
type (!'a, !'b) alist = ('a * 'b) list
val equal_alist : ('a -> 'a -> Bool.t) -> ('b -> 'b -> Bool.t) -> ('a, 'b) alist -> ('a, 'b) alist -> Bool.t
val equal_ctyp : MLast.ctyp -> MLast.ctyp -> bool
val equal_expr : MLast.expr -> MLast.expr -> bool
val equal_patt : MLast.patt -> MLast.patt -> bool
val equal_longid : MLast.longid -> MLast.longid -> bool
type case_branch = Pa_ppx_base.Pp_MLast.patt * Pa_ppx_base.Pp_MLast.expr option Pa_ppx_base.Pp_MLast.Ploc.vala * Pa_ppx_base.Pp_MLast.expr
val equal_case_branch : case_branch -> case_branch -> Bool.t
type longid_lident = Pa_ppx_base.Pp_MLast.longid Pa_ppx_base.Pp_MLast.Ploc.vala option * string Pa_ppx_base.Pp_MLast.Ploc.vala
val equal_longid_lident : longid_lident -> longid_lident -> Bool.t
val convert_down_ne_list_expr : (MLast.expr -> 'a) -> MLast.expr -> 'a list