let ich = Lexing.from_channel stdin in
let flags = if Array.length Sys.argv >= 2 then Sys.argv.(1) else "" in
let log s = print_string s; flush stdout in
- let handle = C.init_if_connected (C.flags_of_string flags) log in
+ let handle =
+ C.init_if_connected ~flags:(C.flags_of_string flags) ~log:log ()
+ in
if not (C.connected handle) then begin
print_endline "mqitop: no connection"; flush stdout
end;