[linters] Remove leftover code related to paths

Reviewed By: martinoluca

Differential Revision: D5301381

fbshipit-source-id: 18329a9
master
Dulma Churchill 8 years ago committed by Facebook Github Bot
parent f38462407e
commit 2d1a8f4940

@ -16,7 +16,6 @@ type keyword =
| Suggestion | Suggestion
| Severity | Severity
| Mode | Mode
| Path
type formula_id = Formula_id of string[@@deriving compare] type formula_id = Formula_id of string[@@deriving compare]
@ -49,7 +48,6 @@ let keyword_to_string k =
| Suggestion -> "suggestion" | Suggestion -> "suggestion"
| Severity -> "severity" | Severity -> "severity"
| Mode -> "mode" | Mode -> "mode"
| Path -> "path"
let is_report_when_keyword k = let is_report_when_keyword k =
match k with match k with
@ -76,11 +74,6 @@ let is_mode_keyword k =
| Mode -> true | Mode -> true
| _ -> false | _ -> false
let is_path_keyword k =
match k with
| Path -> true
| _ -> false
(* true if and only if a substring of container matches the regular (* true if and only if a substring of container matches the regular
expression defined by contained expression defined by contained
*) *)

@ -14,7 +14,6 @@ type keyword =
| Suggestion | Suggestion
| Severity | Severity
| Mode | Mode
| Path
type formula_id = Formula_id of string type formula_id = Formula_id of string
@ -44,8 +43,6 @@ val is_severity_keyword : keyword -> bool
val is_mode_keyword : keyword -> bool val is_mode_keyword : keyword -> bool
val is_path_keyword : keyword -> bool
val str_match_regex : string -> string -> bool val str_match_regex : string -> string -> bool
val compare_str_with_alexp : string -> alexp -> bool val compare_str_with_alexp : string -> alexp -> bool

@ -157,8 +157,6 @@ let string_to_issue_mode m =
L.internal_error "@\n[ERROR] Mode %s does not exist. Please specify ON/OFF@\n" s; L.internal_error "@\n[ERROR] Mode %s does not exist. Please specify ON/OFF@\n" s;
assert false assert false
let string_to_path path = Some path
(** Convert a parsed checker in list of linters *) (** Convert a parsed checker in list of linters *)
let create_parsed_linters linters_def_file checkers : linter list = let create_parsed_linters linters_def_file checkers : linter list =
let open CIssue in let open CIssue in

Loading…
Cancel
Save