Also include the debugs messages in the exit code

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;