(if append_NL then prerr_endline else prerr_string)
(HelmLogger.string_of_html_msg msg));
- let mqi_debug_fun = ignore in
+ let mqi_debug_fun s =
+ HelmLogger.log ~append_NL:true (`Msg (`T s)) in
let mqi_handle = MQIConn.init ~log:mqi_debug_fun () in
let fnames = ref [] in