let dump_authority a =
  sprintf "{ host_kind=%s host=%S port=%s userinfo=%s }"
    (dump_host_kind a.host_kind) a.host
    (match a.port with | None -> "None" | Some p -> string_of_int p)
    (dump_optstr a.userinfo)