From c6dbbaa9e11c34330315f614d922da8ede5824aa Mon Sep 17 00:00:00 2001
From: Chimrod <>
Date: Sun, 14 Jan 2024 12:11:45 +0100
Subject: Also include the debugs messages in the exit code

---
 bin/qsp_parser.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'bin')

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;
-- 
cgit v1.2.3