let close_out t = try Format.pp_print_flush t.logfmt () ; Pervasives.close_out t.logout ; with exn -> Wp_parameters.failure "Can not close log file (%s)" (Printexc.to_string exn)