|
@@ -150,10 +150,10 @@ 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;
|
|
|
- match !ctx.debug_nb with 0 -> exit 0 | _ -> exit 1)
|
|
|
+ exit 1
|