You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
43 lines
1.5 KiB
43 lines
1.5 KiB
(*
|
|
* Copyright (c) Facebook, Inc. and its affiliates.
|
|
*
|
|
* This source code is licensed under the MIT license found in the
|
|
* LICENSE file in the root directory of this source tree.
|
|
*)
|
|
|
|
open! IStd
|
|
|
|
type mode = On | Off
|
|
|
|
type 'issue_type issue_desc0 =
|
|
{ issue_type: 'issue_type (** issue type *)
|
|
; description: string (** Description in the error message *)
|
|
; mode: mode
|
|
; loc: Location.t (** location in the code *)
|
|
; severity: Exceptions.severity
|
|
; suggestion: string option (** an optional suggestion or correction *) }
|
|
|
|
type issue_desc = IssueType.t issue_desc0
|
|
|
|
let string_of_mode m = match m with On -> "On" | Off -> "Off"
|
|
|
|
let pp_issue fmt issue =
|
|
Format.fprintf fmt "{@\n Id = %s@\n" issue.issue_type.IssueType.unique_id ;
|
|
Format.fprintf fmt "{ Name = %s@\n" issue.issue_type.IssueType.hum ;
|
|
Format.fprintf fmt " Severity = %s@\n" (Exceptions.severity_string issue.severity) ;
|
|
Format.fprintf fmt " Mode = %s@\n" (string_of_mode issue.mode) ;
|
|
Format.fprintf fmt " Description = %s@\n" issue.description ;
|
|
Format.fprintf fmt " Suggestion = %s@\n" (Option.value ~default:"" issue.suggestion) ;
|
|
Format.fprintf fmt " Docs URL = %s@\n"
|
|
(Option.value ~default:"" issue.issue_type.IssueType.doc_url) ;
|
|
Format.fprintf fmt " Loc = %s@\n" (Location.to_string issue.loc) ;
|
|
Format.fprintf fmt "}@\n"
|
|
|
|
|
|
let should_run_check mode =
|
|
match mode with
|
|
| On ->
|
|
true
|
|
| Off ->
|
|
Config.debug_mode || Config.debug_exceptions || not Config.filtering
|