Procházet zdrojové kódy

Also include the debugs messages in the exit code

Chimrod před 4 měsíci
rodič
revize
fcf05a8306
1 změnil soubory, kde provedl 2 přidání a 2 odebrání
  1. 2 2
      bin/qsp_parser.ml

+ 2 - 2
bin/qsp_parser.ml

@@ -153,7 +153,7 @@ let () =
   | 0, 0 ->
       print_endline "No errors found";
       exit 0
-  | _ ->
+  | _ -> (
       Printf.printf "Found %d error(s), %d warning(s)\n" !ctx.error_nb
         !ctx.warn_nb;
-      exit 1
+      match !ctx.debug_nb with 0 -> exit 0 | _ -> exit 1)