suppress warnings in corrected way

Author: cometkim

compiler/syntax/cli/res_cli.ml

@@ -26,19 +26,19 @@
 *)
 module Color = struct
   (* use ANSI color codes, see https://en.wikipedia.org/wiki/ANSI_escape_code *)
-  type color =
-    | Black [@live]
+  type[@warning "-37"] color =
+    | Black
     | Red
-    | Green [@live]
+    | Green
     | Yellow
-    | Blue [@live]
+    | Blue
     | Magenta
     | Cyan
-    | White [@live]
+    | White
 
-  type style =
+  type[@warning "-37"] style =
     | FG of color (* foreground *)
-    | BG of color [@live] (* background *)
+    | BG of color (* background *)
     | Bold
     | Reset
     | Dim
@@ -132,7 +132,7 @@ module Color = struct
     let term = try Sys.getenv "TERM" with Not_found -> "" in
     term <> "dumb" && term <> "" && isatty stderr
 
-  type setting = Auto [@live] | Always [@live] | Never [@live]
+  type[@warning "-37"] setting = Auto | Always | Never
 
   let setup =
     let first = ref true in

tests/syntax_benchmarks/Benchmark.ml

@@ -33,16 +33,16 @@ module Time : sig
 
   val now : unit -> t
 
-  val to_uint64 : t -> int64 [@@live]
+  val[@warning "-32"] to_uint64 : t -> int64
 
   (* let of_uint64_ns ns = ns *)
 
-  val nanosecond : t [@@live]
-  val microsecond : t [@@live]
-  val millisecond : t [@@live]
-  val second : t [@@live]
-  val minute : t [@@live]
-  val hour : t [@@live]
+  val[@warning "-32"] nanosecond : t
+  val[@warning "-32"] microsecond : t
+  val[@warning "-32"] millisecond : t
+  val[@warning "-32"] second : t
+  val[@warning "-32"] minute : t
+  val[@warning "-32"] hour : t
 
   val zero : t