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)