clenaup

Author: zth

compiler/ext/warnings.ml

@@ -407,9 +407,7 @@ let message = function
   | Unused_open s -> "unused open " ^ s ^ "."
   | Unused_type_declaration s -> "unused type " ^ s ^ "."
   | Unused_for_index s -> "unused for-loop index " ^ s ^ "."
-  | Unused_constructor (s, false, false) ->
-    (* TODO(actions) Remove constructor *)
-    "unused constructor " ^ s ^ "."
+  | Unused_constructor (s, false, false) -> "unused constructor " ^ s ^ "."
   | Unused_constructor (s, true, _) ->
     "constructor " ^ s
     ^ " is never used to build values.\n\
@@ -489,7 +487,6 @@ let message = function
   | Constraint_on_gadt ->
     "Type constraints do not apply to GADT cases of variant types."
   | Bs_unused_attribute s ->
-    (* TODO(actions) Remove attribute *)
     "Unused attribute: @" ^ s
     ^ "\n\
        This attribute has no effect here.\n\

compiler/ml/cmt_utils.ml

@@ -128,19 +128,21 @@ let emit_possible_actions_from_warning loc w =
   | Useless_record_with ->
     add_possible_action
       {loc; action = RemoveRecordSpread; description = "Remove `...` spread"}
+  | Bs_toplevel_expression_unit _ ->
+    add_possible_action
+      {loc; action = PipeToIgnore; description = "Pipe to ignore()"};
+    add_possible_action
+      {loc; action = AssignToUnderscore; description = "Assign to let _ ="}
     (* 
     
     === TODO === 
     
     *)
   | Unused_pat -> (* Remove pattern *) ()
   | Unused_argument -> (* Remove unused argument or prefix with underscore *) ()
+  | Unused_constructor _ -> (* Remove unused constructor *) ()
   | Nonoptional_label _ -> (* Add `?` to make argument optional *) ()
-  | Bs_toplevel_expression_unit _ ->
-    add_possible_action
-      {loc; action = PipeToIgnore; description = "Pipe to ignore()"};
-    add_possible_action
-      {loc; action = AssignToUnderscore; description = "Assign to let _ ="}
+  | Bs_unused_attribute _ -> (* Remove unused attribute *) ()
   | _ -> ()
 
 let _ =