|
@@ -42,7 +42,7 @@ let parse_location : ctx:ctx -> Qparser.Lexbuf.t -> Args.filters -> ctx =
|
|
|
match report.Report.level with
|
|
|
| Error -> { ctx with error_nb = ctx.error_nb + 1 }
|
|
|
| Warn -> { ctx with warn_nb = ctx.warn_nb + 1 }
|
|
|
- | Debug -> { ctx with warn_nb = ctx.debug_nb + 1 }))
|
|
|
+ | Debug -> { ctx with debug_nb = ctx.debug_nb + 1 }))
|
|
|
| Error e ->
|
|
|
let start_position, _ = Qparser.Lexbuf.positions lexbuf in
|
|
|
Format.fprintf Format.std_formatter "Location@ %s@;@[%a]@."
|