diff options
| -rw-r--r-- | bin/qsp_parser.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bin/qsp_parser.ml b/bin/qsp_parser.ml index 1e897a0..5a34ab2 100644 --- a/bin/qsp_parser.ml +++ b/bin/qsp_parser.ml @@ -150,9 +150,9 @@ let () = in match (!ctx.error_nb, !ctx.warn_nb) with - | 0, 0 -> + | 0, 0 -> ( print_endline "No errors found"; - exit 0 + match !ctx.debug_nb with 0 -> exit 0 | _ -> exit 1) | _ -> Printf.printf "Found %d error(s), %d warning(s)\n" !ctx.error_nb !ctx.warn_nb; |