Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[enhance] opatop: Added typer warnings to opatop

  • Loading branch information...
commit c6557db19dc2ddc54081e00264bb6eb507fedd08 1 parent 4d33289
Quentin Bourgerie BourgerieQuentin authored
Showing with 14 additions and 0 deletions.
  1. +14 −0 opatop/opaTopMain.ml
14 opatop/opaTopMain.ml
View
@@ -210,6 +210,20 @@ let spec = [
@ ( Sa.import_arg_options WarningClass.Arg.options )
@ ( Sa.import_arg_options OpaSyntax.Args.options )
+
+(**
+ Loading opatop warnings
+*)
+let _ =
+ let warning_set =
+ let s = WarningClass.Set.create () in
+ (* let (!+) w = WarningClass.Set.add s w in *)
+ let (!++) s' = WarningClass.Set.add_set s s' in
+ !++ QmlTyperWarnings.warning_set;
+ s
+ in
+ WarningClass.load_set warning_set
+
(**
Anon function for non --option arguments
*)
Please sign in to comment.
Something went wrong with that request. Please try again.