diff options
Diffstat (limited to 'bin/qsp_parser.ml')
| -rw-r--r-- | bin/qsp_parser.ml | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/bin/qsp_parser.ml b/bin/qsp_parser.ml index fc40971..8f4cf26 100644 --- a/bin/qsp_parser.ml +++ b/bin/qsp_parser.ml @@ -21,12 +21,10 @@ type ctx = { error_nb : int; warn_nb : int; debug_nb : int } *) let parse_location : ctx:ctx -> Qparser.Lexbuf.t -> Args.filters -> ctx = fun ~ctx lexbuf filters -> - let result = Qparser.Analyzer.parse (module Qsp_syntax.Type_of) lexbuf in - let result = - Result.map - (fun f -> List.fold_left (f []) ~init:[] ~f:(filter_report filters)) - result + Qparser.Analyzer.parse (module Qsp_syntax.Type_of) lexbuf + |> Result.map (fun (_, f) -> + List.fold_left f ~init:[] ~f:(filter_report filters)) in match result with | Ok report -> ( |