Module `Tyxml_jsx`

val is_jsx : Migrate_parsetree.Ast_408.Parsetree.expression -> bool

module String : sig ... end

module Char : sig ... end

val lowercase_lead : string -> string

val to_kebab_case : string -> string

val make_attr_name : string -> string

val filter_map : ('a -> 'b option) -> 'a list -> 'b list

Children

val make_txt : 
  loc:Migrate_parsetree.Ast_408.Location.t ->
  lang:Tyxml_syntax.Common.lang ->
  string ->
  Migrate_parsetree__Ast_408.Parsetree.expression

val element_mapper : 
  Migrate_parsetree.Ast_408.Ast_mapper.mapper ->
  Migrate_parsetree.Ast_408.Parsetree.expression ->
  Migrate_parsetree__Ast_408.Parsetree.expression

val extract_element_list : 
  Migrate_parsetree.Ast_408.Ast_mapper.mapper ->
  Migrate_parsetree.Ast_408.Parsetree.expression ->
  Migrate_parsetree__Ast_408.Parsetree.expression Tyxml_syntax.Common.value
    list

val extract_children : 
  Migrate_parsetree.Ast_408.Ast_mapper.mapper ->
  (Migrate_parsetree.Ast_408.Asttypes.arg_label
   * Migrate_parsetree.Ast_408.Parsetree.expression)
    list ->
  Migrate_parsetree__Ast_408.Parsetree.expression Tyxml_syntax.Common.value
    list

Attributes

type attr = {

a_name : Tyxml_syntax.Common.name;
a_value : string Tyxml_syntax.Common.value;
a_loc : Migrate_parsetree.Ast_408.Location.t;

}

val extract_attr_value : 
  lang:'a ->
  string ->
  Migrate_parsetree.Ast_408.Parsetree.expression ->
  ('a * string) * string Tyxml_syntax.Common.value

val extract_attr : 
  lang:'a ->
  (Migrate_parsetree.Ast_408.Asttypes.arg_label
   * Migrate_parsetree.Ast_408.Parsetree.expression) ->
  (('a * string) * string Tyxml_syntax.Common.value) option

val classify_name : 
  loc:Migrate_parsetree.Ast_408.Location.t ->
  Tyxml_syntax.Common.lang option ->
  Migrate_parsetree.Ast_408.Longident.t ->
  Tyxml_syntax.Common.lang * (Tyxml_syntax.Common.lang * string)

val is_homemade_component : Migrate_parsetree.Ast_408.Longident.t -> bool

val mk_component : 
  lang:Tyxml_syntax.Common.lang ->
  loc:Migrate_parsetree.Ast_408.Location.t ->
  Migrate_parsetree__Ast_408.Parsetree.expression ->
  (('a * string) * string Tyxml_syntax.Common.value) list ->
  Migrate_parsetree.Ast_408.Parsetree.expression Tyxml_syntax.Common.value list ->
  Migrate_parsetree__Ast_408.Parsetree.expression

type config = {

mutable lang : Tyxml_syntax.Common.lang option;
mutable enabled : bool;

}

val expr_mapper : 
  config ->
  Migrate_parsetree.Ast_408.Ast_mapper.mapper ->
  Migrate_parsetree.Ast_408.Parsetree.expression ->
  Migrate_parsetree.Ast_408.Parsetree.expression

val stri_mapper : 
  config ->
  Migrate_parsetree.Ast_408.Ast_mapper.mapper ->
  Migrate_parsetree.Ast_408.Parsetree.structure_item ->
  Migrate_parsetree.Ast_408.Parsetree.structure_item

val mapper : 'a -> 'b -> Migrate_parsetree.Ast_408.Ast_mapper.mapper

package tyxml-jsx

Module Tyxml_jsx

Module `Tyxml_jsx`