Make check-typo happy

ocaml · Aug 29, 2018 · 2c6bb53 · 2c6bb53
1 parent fe8fa00
commit 2c6bb53
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 5 deletions.
diff --git a/.gitattributes b/.gitattributes
@@ -96,6 +96,7 @@ testsuite/tests/typing-objects/Exemples.ml   ocaml-typo=long-line,missing-header
 testsuite/tests/typing-modules/firstclass.ml ocaml-typo=long-line,missing-header
 testsuite/tests/typing-gadts/test.ml         ocaml-typo=long-line,missing-header
 testsuite/tests/typing-gadts/pr7160.ml       ocaml-typo=long-line,missing-header
+testsuite/tests/typing-deprecated/alerts.ml  ocaml-typo=long-line,missing-header
 
 tools/magic         ocaml-typo=missing-header
 

diff --git a/typing/env.ml b/typing/env.ml
@@ -594,7 +594,8 @@ let without_cmis f x =
 
 let components_of_module' =
   ref ((fun ~alerts:_ ~loc:_ _env _sub _path _mty -> assert false) :
-         alerts:string Misc.Stdlib.String.Map.t -> loc:Location.t -> t -> Subst.t ->
+         alerts:string Misc.Stdlib.String.Map.t -> loc:Location.t -> t ->
+       Subst.t ->
        Path.t -> module_type ->
        module_components)
 let components_of_module_maker' =

diff --git a/utils/warnings.ml b/utils/warnings.ml
@@ -209,17 +209,17 @@ type state =
   {
     active: bool array;
     error: bool array;
-    alerts: (Misc.Stdlib.String.Set.t * bool); (* false=>complement of the set *)
-    alert_errors: (Misc.Stdlib.String.Set.t * bool); (* false=>complement of the set *)
+    alerts: (Misc.Stdlib.String.Set.t * bool); (* false:set complement *)
+    alert_errors: (Misc.Stdlib.String.Set.t * bool); (* false:set complement *)
   }
 
 let current =
   ref
     {
       active = Array.make (last_warning_number + 1) true;
       error = Array.make (last_warning_number + 1) false;
-      alerts = (Misc.Stdlib.String.Set.empty, false); (* all alerts enabled *)
-      alert_errors = (Misc.Stdlib.String.Set.empty, true); (* all alerts are soft *)
+      alerts = (Misc.Stdlib.String.Set.empty, false); (* all enabled *)
+      alert_errors = (Misc.Stdlib.String.Set.empty, true); (* all soft *)
     }
 
 let disabled = ref false