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

src/plugins/wp/driver.mll

@@ -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