Permalink
Browse files

[enhance] opatop: Added typer warnings to opatop

  • Loading branch information...
1 parent 4d33289 commit c6557db19dc2ddc54081e00264bb6eb507fedd08 @BourgerieQuentin BourgerieQuentin committed Feb 23, 2012
Showing with 14 additions and 0 deletions.
  1. +14 −0 opatop/opaTopMain.ml
View
14 opatop/opaTopMain.ml
@@ -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
*)

0 comments on commit c6557db

Please sign in to comment.