allow tag fields everywhere

Author: eWert-Online

atd/src/json.ml

@@ -90,6 +90,12 @@ let annot_schema_json : Annot.schema = [
       Variant, "name";
       Field, "name";
       Field, "tag_field";
+      Module_head, "tag";
+      Type_def, "tag";
+      Type_expr, "tag";
+      Variant, "tag";
+      Cell, "tag";
+      Field, "tag";
     ]
   };
   {

atdcpp/src/lib/Codegen.ml

@@ -34,6 +34,12 @@ let annot_schema_cpp : Atd.Annot.schema_section =
       Field, "default";
       Module_head, "include";
       Module_head, "namespace";
+      Module_head, "tag";
+      Type_def, "tag";
+      Type_expr, "tag";
+      Variant, "tag";
+      Cell, "tag";
+      Field, "tag";
     ]
   }
 

atdd/src/lib/Codegen.ml

@@ -32,6 +32,12 @@ let annot_schema_dlang : Atd.Annot.schema_section =
       Type_expr, "wrap";
       Field, "default";
       Module_head, "import";
+      Module_head, "tag";
+      Type_def, "tag";
+      Type_expr, "tag";
+      Variant, "tag";
+      Cell, "tag";
+      Field, "tag";
     ]
   }
 

atdgen/src/biniou.ml

@@ -41,6 +41,12 @@ let annot_schema_biniou : Atd.Annot.schema = [
     section = "biniou";
     fields = [
       Type_expr, "repr";
+      Module_head, "tag";
+      Type_def, "tag";
+      Type_expr, "tag";
+      Variant, "tag";
+      Cell, "tag";
+      Field, "tag";
     ]
   };
   {
@@ -50,6 +56,12 @@ let annot_schema_biniou : Atd.Annot.schema = [
       Type_def, "module";
       Type_def, "predef";
       Type_def, "t";
+      Module_head, "tag";
+      Type_def, "tag";
+      Type_expr, "tag";
+      Variant, "tag";
+      Cell, "tag";
+      Field, "tag";
     ]
   };
 ]

atdgen/src/ocaml.ml

@@ -169,6 +169,12 @@ let annot_schema_ocaml : Atd.Annot.schema_section =
       Field, "mutable";
       Field, "name";
       Field, "repr";
+      Module_head, "tag";
+      Type_def, "tag";
+      Type_expr, "tag";
+      Variant, "tag";
+      Cell, "tag";
+      Field, "tag";
     ]
   }
 

atdpy/src/lib/Codegen.ml

@@ -46,6 +46,12 @@ let annot_schema_python : Atd.Annot.schema_section =
       Type_def, "decorator";
       Type_expr, "repr";
       Field, "default";
+      Module_head, "tag";
+      Type_def, "tag";
+      Type_expr, "tag";
+      Variant, "tag";
+      Cell, "tag";
+      Field, "tag";
     ]
   }
 

atdts/src/lib/Codegen.ml

@@ -27,6 +27,12 @@ let annot_schema_ts : Atd.Annot.schema_section =
       Field, "default";
       Type_def, "from";
       Type_def, "t";
+      Module_head, "tag";
+      Type_def, "tag";
+      Type_expr, "tag";
+      Variant, "tag";
+      Cell, "tag";
+      Field, "tag";
     ]
   }