|
|
|
@ -250,16 +250,6 @@ module ProcsCsv = {
|
|
|
|
|
};
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
let paths_to_filter =
|
|
|
|
|
Option.bind Config.filter_report_paths (fun f => Some (In_channel.read_lines f)) |>
|
|
|
|
|
Option.map f::(List.map f::SourceFile.create);
|
|
|
|
|
|
|
|
|
|
let report_filter source_file =>
|
|
|
|
|
switch paths_to_filter {
|
|
|
|
|
| Some paths => List.mem equal::SourceFile.equal paths source_file
|
|
|
|
|
| None => true
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
let should_report (issue_kind: Exceptions.err_kind) issue_type error_desc eclass =>
|
|
|
|
|
if (not Config.filtering || Exceptions.equal_err_class eclass Exceptions.Linters) {
|
|
|
|
|
true
|
|
|
|
@ -368,8 +358,7 @@ module IssuesCsv = {
|
|
|
|
|
if (
|
|
|
|
|
key.in_footprint &&
|
|
|
|
|
error_filter source_file key.err_desc key.err_name &&
|
|
|
|
|
should_report key.err_kind key.err_name key.err_desc err_data.err_class &&
|
|
|
|
|
report_filter source_file
|
|
|
|
|
should_report key.err_kind key.err_name key.err_desc err_data.err_class
|
|
|
|
|
) {
|
|
|
|
|
let err_desc_string = error_desc_to_csv_string key.err_desc;
|
|
|
|
|
let err_advice_string = error_advice_to_csv_string key.err_desc;
|
|
|
|
@ -455,8 +444,7 @@ module IssuesJson = {
|
|
|
|
|
key.in_footprint &&
|
|
|
|
|
error_filter source_file key.err_desc key.err_name &&
|
|
|
|
|
should_report_source_file &&
|
|
|
|
|
should_report key.err_kind key.err_name key.err_desc err_data.err_class &&
|
|
|
|
|
report_filter source_file
|
|
|
|
|
should_report key.err_kind key.err_name key.err_desc err_data.err_class
|
|
|
|
|
) {
|
|
|
|
|
let kind = Exceptions.err_kind_string key.err_kind;
|
|
|
|
|
let bug_type = Localise.to_issue_id key.err_name;
|
|
|
|
|