method private params_for_tag tag = let param_tag = C.string ~f: (fun s -> tag.tag <- s) Rep_messages.tag tag.tag in let param_atts = tag_attributes_param tag in [param_tag ; param_atts]