add type annotations

Author: bobzhang

jscomp/core/js_pass_flatten_and_mark_dead.ml

@@ -43,7 +43,7 @@ type meta_info =
 let mark_dead_code (js : J.program) : J.program = 
   let ident_use_stats : meta_info Hash_ident.t
     = Hash_ident.create 17 in 
-  let mark_dead = object (self)
+  let mark_dead  : Js_fold.fold = object (self)
     inherit Js_fold.fold 
     method! ident ident = 
       (match Hash_ident.find_opt ident_use_stats ident with

jscomp/core/js_pass_get_used.ml

@@ -52,7 +52,7 @@ let count_collects
   (* collect used status*)
   (stats : int Hash_ident.t)
   (* collect all def sites *)
-  (defined_idents : J.variable_declaration Hash_ident.t)
+  (defined_idents : J.variable_declaration Hash_ident.t) : Js_fold.fold
    = 
   object (self)
     inherit Js_fold.fold 

lib/4.06.1/unstable/js_compiler.ml

@@ -101948,7 +101948,7 @@ type meta_info =
 let mark_dead_code (js : J.program) : J.program = 
   let ident_use_stats : meta_info Hash_ident.t
     = Hash_ident.create 17 in 
-  let mark_dead = object (self)
+  let mark_dead  : Js_fold.fold = object (self)
     inherit Js_fold.fold 
     method! ident ident = 
       (match Hash_ident.find_opt ident_use_stats ident with
@@ -102625,7 +102625,7 @@ let count_collects
   (* collect used status*)
   (stats : int Hash_ident.t)
   (* collect all def sites *)
-  (defined_idents : J.variable_declaration Hash_ident.t)
+  (defined_idents : J.variable_declaration Hash_ident.t) : Js_fold.fold
    = 
   object (self)
     inherit Js_fold.fold 

lib/4.06.1/unstable/js_refmt_compiler.ml

@@ -101948,7 +101948,7 @@ type meta_info =
 let mark_dead_code (js : J.program) : J.program = 
   let ident_use_stats : meta_info Hash_ident.t
     = Hash_ident.create 17 in 
-  let mark_dead = object (self)
+  let mark_dead  : Js_fold.fold = object (self)
     inherit Js_fold.fold 
     method! ident ident = 
       (match Hash_ident.find_opt ident_use_stats ident with
@@ -102625,7 +102625,7 @@ let count_collects
   (* collect used status*)
   (stats : int Hash_ident.t)
   (* collect all def sites *)
-  (defined_idents : J.variable_declaration Hash_ident.t)
+  (defined_idents : J.variable_declaration Hash_ident.t) : Js_fold.fold
    = 
   object (self)
     inherit Js_fold.fold 

lib/4.06.1/whole_compiler.ml

@@ -384430,7 +384430,7 @@ type meta_info =
 let mark_dead_code (js : J.program) : J.program = 
   let ident_use_stats : meta_info Hash_ident.t
     = Hash_ident.create 17 in 
-  let mark_dead = object (self)
+  let mark_dead  : Js_fold.fold = object (self)
     inherit Js_fold.fold 
     method! ident ident = 
       (match Hash_ident.find_opt ident_use_stats ident with
@@ -385107,7 +385107,7 @@ let count_collects
   (* collect used status*)
   (stats : int Hash_ident.t)
   (* collect all def sites *)
-  (defined_idents : J.variable_declaration Hash_ident.t)
+  (defined_idents : J.variable_declaration Hash_ident.t) : Js_fold.fold
    = 
   object (self)
     inherit Js_fold.fold