Skip to content
This repository
Browse code

[enhance] opatop: Added typer warnings to opatop

  • Loading branch information...
commit c6557db19dc2ddc54081e00264bb6eb507fedd08 1 parent 4d33289
Quentin Bourgerie BourgerieQuentin authored

Showing 1 changed file with 14 additions and 0 deletions. Show diff stats Hide diff stats

  1. +14 0 opatop/opaTopMain.ml
14 opatop/opaTopMain.ml
@@ -210,6 +210,20 @@ let spec = [
210 210 @ ( Sa.import_arg_options WarningClass.Arg.options )
211 211 @ ( Sa.import_arg_options OpaSyntax.Args.options )
212 212
  213 +
  214 +(**
  215 + Loading opatop warnings
  216 +*)
  217 +let _ =
  218 + let warning_set =
  219 + let s = WarningClass.Set.create () in
  220 + (* let (!+) w = WarningClass.Set.add s w in *)
  221 + let (!++) s' = WarningClass.Set.add_set s s' in
  222 + !++ QmlTyperWarnings.warning_set;
  223 + s
  224 + in
  225 + WarningClass.load_set warning_set
  226 +
213 227 (**
214 228 Anon function for non --option arguments
215 229 *)

0 comments on commit c6557db

Please sign in to comment.
Something went wrong with that request. Please try again.