Skip to content
Snippets Groups Projects
Commit 9e5423c4 authored by Michele Alberti's avatar Michele Alberti
Browse files

Set autodetect debug flag wrt global caisar verbosity.

parent 06fe8467
No related branches found
No related tags found
No related merge requests found
...@@ -46,7 +46,10 @@ let config detect () = ...@@ -46,7 +46,10 @@ let config detect () =
if detect if detect
then begin then begin
Logs.debug (fun m -> m "Automatic detection."); Logs.debug (fun m -> m "Automatic detection.");
let config = Autodetection.autodetect ~debug:false () in let config =
let debug = match Logs.level () with Some Debug -> true | _ -> false in
Autodetection.autodetect ~debug ()
in
let open Why3 in let open Why3 in
let provers = Whyconf.get_provers config in let provers = Whyconf.get_provers config in
Logs.app (fun m -> Logs.app (fun m ->
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment