let std_logger conf shard_id =
if display conf then
let verbose = verbose conf in
let fwrite log_ev =
if verbose then
List.iter print_endline (format_log_event log_ev)
else
print_string (format_display_event conf log_ev);
flush stdout
in
{
lshard = shard_id;
fwrite = fwrite;
fpos = (fun () -> None);
fclose = ignore;
}
else
null_logger