Sys.catch_break true;
let origcb = MatitaLog.get_log_callback () in
let newcb tag s =
- match tag with
- | `Debug | `Message -> ()
- | `Warning | `Error -> origcb tag s
+ match tag with
+ | `Debug | `Message -> ()
+ | `Warning | `Error -> origcb tag s
in
if Helm_registry.get_bool "matita.quiet" then
MatitaLog.set_log_callback newcb;