Merge pull request #6027 from rescript-lang/cleanup

cristianoc · web-flow · commit 7dc4441661f5 · 2023-03-03T09:45:02.000+01:00
clean up @ocaml.warning -> @warning
diff --git a/jscomp/core/lam_primitive.ml b/jscomp/core/lam_primitive.ml
@@ -22,7 +22,7 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
-[@@@ocaml.warning "+9"]
+[@@@warning "+9"]
 
 type ident = Ident.t
 
diff --git a/jscomp/ext/hash_set.cppo.ml b/jscomp/ext/hash_set.cppo.ml
@@ -49,7 +49,7 @@ module Make (H: Hashtbl.HashedType) : (Hash_set_gen.S with type key = H.t) = str
   type t = key Hash_set_gen.t
 
 #elif defined TYPE_POLY
-  [@@@ocaml.warning "-3"]
+  [@@@warning "-3"]
   (* we used cppo the mixture does not work*)
   external seeded_hash_param :
     int -> int -> int -> 'a -> int = "caml_hash" "noalloc"
diff --git a/jscomp/frontend/ast_external_process.ml b/jscomp/frontend/ast_external_process.ml
@@ -22,7 +22,7 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
-[@@@ocaml.warning "+9"]
+[@@@warning "+9"]
 (* record pattern match complete checker*)
 
 let rec variant_can_unwrap_aux (row_fields : Parsetree.row_field list) : bool =
diff --git a/jscomp/frontend/bs_ast_mapper.ml b/jscomp/frontend/bs_ast_mapper.ml
@@ -16,7 +16,7 @@
 (* A generic Parsetree mapping class *)
 
 (*
-[@@@ocaml.warning "+9"]
+[@@@warning "+9"]
   (* Ensure that record patterns don't miss any field. *)
 *)
 
diff --git a/jscomp/js_parser/loc.mli b/jscomp/js_parser/loc.mli
@@ -12,7 +12,7 @@ type position = {
 [@@deriving_inline equal]
 include
   sig
-    [@@@ocaml.warning "-32"]
+    [@@@warning "-32"]
     val equal_position : position -> position -> bool
   end[@@ocaml.doc "@inline"]
 [@@@end]
diff --git a/jscomp/ml/ast_iterator.ml b/jscomp/ml/ast_iterator.ml
@@ -16,7 +16,7 @@
 (* A generic Parsetree mapping class *)
 
 (*
-[@@@ocaml.warning "+9"]
+[@@@warning "+9"]
   (* Ensure that record patterns don't miss any field. *)
 *)
 
diff --git a/jscomp/ml/ast_mapper.ml b/jscomp/ml/ast_mapper.ml
@@ -16,7 +16,7 @@
 (* A generic Parsetree mapping class *)
 
 (*
-[@@@ocaml.warning "+9"]
+[@@@warning "+9"]
   (* Ensure that record patterns don't miss any field. *)
 *)
 
diff --git a/jscomp/test/gpr_2614_test.ml b/jscomp/test/gpr_2614_test.ml
@@ -1,5 +1,5 @@
 
-[@@@ocaml.warning "-a"]
+[@@@warning "-a"]
 
 type t = {
 
diff --git a/jscomp/test/gpr_3209_test.ml b/jscomp/test/gpr_3209_test.ml
@@ -1,6 +1,6 @@
 
-(* [@@@ocaml.warning "a-11-8-4-a"] *)
-[@@@ocaml.warning "a+11+8-8"]
+(* [@@@warning "a-11-8-4-a"] *)
+[@@@warning "a+11+8-8"]
 type t6 = 
   | T60  
   | T61
diff --git a/jscomp/test/gpr_3595_test.ml b/jscomp/test/gpr_3595_test.ml
@@ -3,7 +3,7 @@ let test_id = ref 0
 let eq loc x y = Mt.eq_suites ~test_id ~suites loc x y 
 
 
-[@@@ocaml.warning "-a"]
+[@@@warning "-a"]
 
 
 (* let [|a|] = [|1|] *)
diff --git a/jscomp/test/gpr_return_type_unused_attribute.ml b/jscomp/test/gpr_return_type_unused_attribute.ml
@@ -1,6 +1,6 @@
 
 
-(* [@@@ocaml.warning "-101"] *)
+(* [@@@warning "-101"] *)
 
 external mk : int -> 
   (

Original file line number	Diff line number	Diff line change
`@@ -1,5 +1,5 @@`
`1`	`1`
`2`		`-[@@@ocaml.warning "-a"]`
	`2`	`+[@@@warning "-a"]`
`3`	`3`
`4`	`4`	`type t = {`
`5`	`5`
Original file line number	Diff line number	Diff line change
`@@ -1,6 +1,6 @@`
`1`	`1`
`2`	`2`
`3`		`-(* [@@@ocaml.warning "-101"] *)`
	`3`	`+(* [@@@warning "-101"] *)`
`4`	`4`
`5`	`5`	`external mk : int ->`
`6`	`6`	`(`