Reanalyze annotations.

Author: cristianoc

jscomp/gentype/Annotation.ml

@@ -118,8 +118,6 @@ let checkUnsupportedGenTypeAsRenaming attributes =
     | Some (loc, _) -> error ~loc
     | None -> ())
 
-let getAs attributes = attributes |> getAttributePayload tagIsAs
-
 let getAsString attributes =
   match attributes |> getAttributePayload tagIsAs with
   | Some (_, StringPayload s) -> Some s

jscomp/gentype/GenTypeCommon.ml

@@ -82,24 +82,24 @@ and field = {
 
 and function_ = {
   argTypes: argType list;
-  componentName: string option;
+  componentName: string option; [@live]
   retType: type_;
   typeVars: string list;
-  uncurried: bool;
+  uncurried: bool; [@live]
 }
 
 and ident = {builtin: bool; name: string; typeArgs: type_ list}
 
 and variant = {
-  bsStringOrInt: bool;
+  bsStringOrInt: bool; [@live]
   inherits: type_ list;
   noPayloads: case list;
   payloads: payload list;
   polymorphic: bool; (* If true, this is a polymorphic variant *)
   unboxed: bool;
 }
 
-and payload = {case: case; inlineRecord: bool; numArgs: int; t: type_}
+and payload = {case: case; inlineRecord: bool [@live]; numArgs: int; [@live] t: type_}
 
 type label = Nolabel | Label of string | OptLabel of string