Commit c71cb505 authored by Virgile Prevosto's avatar Virgile Prevosto
Browse files

[wp] only output information on loaded driver when 'driver' category is on

parent 3a8d49ec
......@@ -72,6 +72,10 @@
lexbuf.lex_curr_p <-
{ lexbuf.lex_curr_p with pos_lnum = succ lexbuf.lex_curr_p.pos_lnum }
(*TODO[LC] Think about projectification ... *)
let dkey = Wp_parameters.register_category "includes"
let dkey_driver = Wp_parameters.register_category "driver"
let rec conv_bal default (name,bal) =
match bal with
| `Default -> conv_bal default (name,default)
......@@ -460,7 +464,7 @@ and bal = parse
let load_file ?(ontty=`Transient) file =
try
let path = Datatype.Filepath.of_string file in
Wp_parameters.feedback ~ontty "Loading driver '%a'"
Wp_parameters.feedback ~dkey:dkey_driver ~ontty "Loading driver '%a'"
Datatype.Filepath.pretty path;
let driver_dir = Filename.dirname file in
let inc = open_in file in
......@@ -482,10 +486,6 @@ and bal = parse
~current:false
"Error in driver '%s': %s" file (Printexc.to_string exn)
(*TODO[LC] Think about projectification ... *)
let dkey = Wp_parameters.register_category "includes"
let dkey_driver = Wp_parameters.register_category "driver"
let loaded : (string list, driver) Hashtbl.t =Hashtbl.create 10
let load_driver () =
let drivers = Wp_parameters.Drivers.get () in
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment