sig
  type t =
      Comment_start
    | Comment_not_end
    | Deprecated
    | Fragile_match of string
    | Partial_application
    | Labels_omitted
    | Method_override of string list
    | Partial_match of string
    | Non_closed_record_pattern of string
    | Statement_type
    | Unused_match
    | Unused_pat
    | Instance_variable_override of string list
    | Illegal_backslash
    | Implicit_public_methods of string list
    | Unerasable_optional_argument
    | Undeclared_virtual_method of string
    | Not_principal of string
    | Without_principality of string
    | Unused_argument
    | Nonreturning_statement
    | Camlp4 of string
    | Useless_record_with
    | Bad_module_name of string
    | All_clauses_guarded
    | Unused_var of string
    | Unused_var_strict of string
    | Wildcard_arg_to_constant_constr
    | Eol_in_string
    | Duplicate_definitions of string * string * string * string
  val parse_options : bool -> string -> unit
  val is_active : Warnings.t -> bool
  val is_error : Warnings.t -> bool
  val defaults_w : string
  val defaults_warn_error : string
  val print : Format.formatter -> Warnings.t -> int
  exception Errors of int
  val check_fatal : unit -> unit
  val help_warnings : unit -> unit
end