dead code

Author: cristianoc

jscomp/core/record_attributes_check.ml

@@ -81,7 +81,6 @@ let rec check_duplicated_labels_aux (lbls : Parsetree.label_declaration list)
   match lbls with
   | [] -> None
   | { pld_name = { txt } as pld_name; pld_attributes } :: rest -> (
-      (* TODO: this operates on the parse tree and does not know about expansion *)
       if Set_string.mem coll txt && txt <> "..." then Some pld_name
       else
         let coll_with_lbl = Set_string.add coll txt in

jscomp/gentype/GenTypeCommon.ml

@@ -91,7 +91,6 @@ and function_ = {
 and ident = {builtin: bool; name: string; typeArgs: type_ list}
 
 and variant = {
-  bsStringOrInt: bool; [@live]
   inherits: type_ list;
   noPayloads: case list;
   payloads: payload list;
@@ -170,9 +169,9 @@ let rec depToResolvedName (dep : dep) =
   | Internal resolvedName -> resolvedName
   | Dot (p, s) -> ResolvedName.dot s (p |> depToResolvedName)
 
-let createVariant ~bsStringOrInt ~inherits ~noPayloads ~payloads ~polymorphic
+let createVariant ~inherits ~noPayloads ~payloads ~polymorphic
     ~unboxed =
-  Variant {bsStringOrInt; inherits; noPayloads; payloads; polymorphic; unboxed}
+  Variant {inherits; noPayloads; payloads; polymorphic; unboxed}
 
 let ident ?(builtin = true) ?(typeArgs = []) name =
   Ident {builtin; name; typeArgs}

jscomp/gentype/TranslateCoreType.ml

@@ -223,8 +223,8 @@ and translateCoreType_ ~config ~typeVarsGen
       in
       let inherits = inheritsTranslations |> List.map (fun {type_} -> type_) in
       let type_ =
-        createVariant ~bsStringOrInt:(asString || asInt) ~noPayloads ~payloads
-          ~inherits ~polymorphic:true ~unboxed:false
+        createVariant ~noPayloads ~payloads ~inherits ~polymorphic:true
+          ~unboxed:false
       in
       let dependencies =
         (inheritsTranslations

jscomp/gentype/TranslateTypeDeclarations.ml

@@ -196,8 +196,8 @@ let traslateDeclarationKind ~config ~loc ~outputFileRelative ~resolver
                    {payload with case})
           else variant.payloads
         in
-        createVariant ~bsStringOrInt:false ~inherits:variant.inherits
-          ~noPayloads ~payloads ~polymorphic:true ~unboxed:false
+        createVariant ~inherits:variant.inherits ~noPayloads ~payloads
+          ~polymorphic:true ~unboxed:false
       | _ -> translation.type_
     in
     {translation with type_} |> handleGeneralDeclaration
@@ -311,8 +311,8 @@ let traslateDeclarationKind ~config ~loc ~outputFileRelative ~resolver
              })
     in
     let variantTyp =
-      createVariant ~bsStringOrInt:false ~inherits:[] ~noPayloads ~payloads
-        ~polymorphic:false ~unboxed:unboxedAnnotation
+      createVariant ~inherits:[] ~noPayloads ~payloads ~polymorphic:false
+        ~unboxed:unboxedAnnotation
     in
     let resolvedTypeName = typeName |> TypeEnv.addModulePath ~typeEnv in
     let exportFromTypeDeclaration =

jscomp/gentype/TranslateTypeExprFromTypes.ml

@@ -140,7 +140,7 @@ let translateConstr ~config ~paramsTranslation ~(path : Path.t) ~typeEnv =
       }
     in
     let variant =
-      createVariant ~bsStringOrInt:false ~inherits:[] ~noPayloads:[]
+      createVariant ~inherits:[] ~noPayloads:[]
         ~payloads:
           [
             case 0 "Ok" paramTranslation1.type_;
@@ -407,8 +407,8 @@ and translateTypeExprFromTypes_ ~config ~typeVarsGen ~typeEnv
         |> List.map (fun label -> {label; labelJS = StringLabel label})
       in
       let type_ =
-        createVariant ~bsStringOrInt:false ~inherits:[] ~noPayloads ~payloads:[]
-          ~polymorphic:true ~unboxed:false
+        createVariant ~inherits:[] ~noPayloads ~payloads:[] ~polymorphic:true
+          ~unboxed:false
       in
       {dependencies = []; type_}
     | {noPayloads = []; payloads = [(_label, t)]; unknowns = []} ->
@@ -438,8 +438,8 @@ and translateTypeExprFromTypes_ ~config ~typeVarsGen ~typeEnv
                })
       in
       let type_ =
-        createVariant ~bsStringOrInt:false ~inherits:[] ~noPayloads ~payloads
-          ~polymorphic:true ~unboxed:false
+        createVariant ~inherits:[] ~noPayloads ~payloads ~polymorphic:true
+          ~unboxed:false
       in
       let dependencies =
         payloadTranslations